hg/stx-libtool: AbstractSettingsApplication.st@c5d65fffae16 (annotated)

4226 44e2f83cc526 initial checkin penk parents: diff changeset	1	"{ Package: 'stx:libtool' }"
44e2f83cc526 initial checkin penk parents: diff changeset	2
44e2f83cc526 initial checkin penk parents: diff changeset	3	ApplicationModel subclass:#AbstractSettingsApplication
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	4	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
c605d7909165 * empty log message * penk parents: 5035 diff changeset	5	requestor'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	6	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	7	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	8	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	9	!
44e2f83cc526 initial checkin penk parents: diff changeset	10
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	12	instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport
c605d7909165 * empty log message * penk parents: 5035 diff changeset	13	warnCommonMistakes warnUnderscore keepSource constantFolding
c605d7909165 * empty log message * penk parents: 5035 diff changeset	14	warnCompatibility constantFoldingOptions warnings warnSTX
c605d7909165 * empty log message * penk parents: 5035 diff changeset	15	allowDollar allowReservedWordsAsSelectors immutableArrays
c605d7909165 * empty log message * penk parents: 5035 diff changeset	16	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
c605d7909165 * empty log message * penk parents: 5035 diff changeset	17	warnUnusedVars allowSqueakExtensions justInTimeCompilation
c605d7909165 * empty log message * penk parents: 5035 diff changeset	18	canLoadBinaries constantFoldingSelection enableUnderscore
c605d7909165 * empty log message * penk parents: 5035 diff changeset	19	enableDollar'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	20	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	21	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	22	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	23	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	24
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	25	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	26	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	27	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	28	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	29	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	30	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	31
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	32	AbstractSettingsApplication subclass:#DisplaySettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	33	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
c605d7909165 * empty log message * penk parents: 5035 diff changeset	34	clipEncodingListSelection sizeX monitorList ditherList
c605d7909165 * empty log message * penk parents: 5035 diff changeset	35	clipEncodingList ditherListSelection deepIcons monitorSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	36	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
c605d7909165 * empty log message * penk parents: 5035 diff changeset	37	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
c605d7909165 * empty log message * penk parents: 5035 diff changeset	38	screenDepthVisualLabelHolder'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	39	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	40	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	41	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	42	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	43
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	44	AbstractSettingsApplication subclass:#EditSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	45	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
c605d7909165 * empty log message * penk parents: 5035 diff changeset	46	searchDialogIsModal startTextDragWithControl'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	47	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	48	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	49	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	50	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	51
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	52	AbstractSettingsApplication subclass:#FontSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	53	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
c605d7909165 * empty log message * penk parents: 5035 diff changeset	54	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	55	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	56	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	57	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	58	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	59	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	60	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	61
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	62	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	63	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
c605d7909165 * empty log message * penk parents: 5035 diff changeset	64	searchDialogIsModal startTextDragWithControl catchClassRedefs
c605d7909165 * empty log message * penk parents: 5035 diff changeset	65	fullHistoryUpdate historyLines keepSourceSelection keepSource
c605d7909165 * empty log message * penk parents: 5035 diff changeset	66	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	67	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	68	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	69	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	70	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	71
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	72	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	73	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
c605d7909165 * empty log message * penk parents: 5035 diff changeset	74	hasCreatedServerChannel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	75	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	76	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	77	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	78	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	79
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	80	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	81	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
c605d7909165 * empty log message * penk parents: 5035 diff changeset	82	labelTextHolder functionKeyList rawKeyList mappings'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	83	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	84	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	85	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	86	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	87
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	88	AbstractSettingsApplication subclass:#LanguageSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	89	instanceVariableNames:'languageHolder languageList listOfLanguages translatedLanguages
c605d7909165 * empty log message * penk parents: 5035 diff changeset	90	noticeLabelHolder currentLanguageChannel currentLanguageLabel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	91	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	92	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	93	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	96	AbstractSettingsApplication subclass:#MemorySettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	97	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	98	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
c605d7909165 * empty log message * penk parents: 5035 diff changeset	99	igcFreeAmount stackLimit supportsJustInTimeCompilation'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	100	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	101	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	102	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	104
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	105	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	106	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
c605d7909165 * empty log message * penk parents: 5035 diff changeset	107	windowMigrationPassword windowMigrationAuthenticate
c605d7909165 * empty log message * penk parents: 5035 diff changeset	108	enablePasswordCheck'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	109	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	110	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	111	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	112	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	113
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	114	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	115	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
c605d7909165 * empty log message * penk parents: 5035 diff changeset	116	activateOnClick shadows opaqueVariablePanelResize
c605d7909165 * empty log message * penk parents: 5035 diff changeset	117	formatHostNameinWindowLabels opaqueTableColumnResize
c605d7909165 * empty log message * penk parents: 5035 diff changeset	118	hostNameInLabelHolder showAccelerators newWindowLabelFormat
c605d7909165 * empty log message * penk parents: 5035 diff changeset	119	formatHostNameWindowLabel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	120	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	121	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	122	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	123	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	124
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	125	AbstractSettingsApplication subclass:#OsiSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	126	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
c605d7909165 * empty log message * penk parents: 5035 diff changeset	127	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
c605d7909165 * empty log message * penk parents: 5035 diff changeset	128	osiCMISEMessageLogging osiACSEDataLogging
c605d7909165 * empty log message * penk parents: 5035 diff changeset	129	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	130	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	131	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	132	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	133	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	134
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	135	AbstractSettingsApplication subclass:#PrinterSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	136	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
c605d7909165 * empty log message * penk parents: 5035 diff changeset	137	landscape pageFormatList pageFormat unitList leftMargin
c605d7909165 * empty log message * penk parents: 5035 diff changeset	138	possiblePrinters printerType printerTypeSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	139	printCommandList commandList printCommand enableFormat
c605d7909165 * empty log message * penk parents: 5035 diff changeset	140	enablelandscape enableMargins enableColorBox'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	141	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	142	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	143	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	144	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	145
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	146	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	147	instanceVariableNames:'dynamicPrios preemptive'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	148	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	149	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	150	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	151	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	152
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	153	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	154	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
c605d7909165 * empty log message * penk parents: 5035 diff changeset	155	rDoitErrorDebugging rDoitServerPortOrPath'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	156	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	157	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	158	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	159	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	160
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	161	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	162	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries
c605d7909165 * empty log message * penk parents: 5035 diff changeset	163	stcDefines stcLibraries stcOptions stcLibraryPath
c605d7909165 * empty log message * penk parents: 5035 diff changeset	164	stcCompilationSelection stcCompilationList'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	165	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	166	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	167	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	168	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	169
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	170	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	171	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
c605d7909165 * empty log message * penk parents: 5035 diff changeset	172	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
c605d7909165 * empty log message * penk parents: 5035 diff changeset	173	blockArgumentsOnNewLine spaceAfterReturnToken
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	174	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	175	oldUserPreferences reformatLocked'
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	176	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	177	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	178	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	179	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	180
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	181	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	182	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
c605d7909165 * empty log message * penk parents: 5035 diff changeset	183	syntaxColorConfiguration setupSourceCodeManager
c605d7909165 * empty log message * penk parents: 5035 diff changeset	184	checkClassesWhenCheckingIn formattingConfiguration
c605d7909165 * empty log message * penk parents: 5035 diff changeset	185	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	186	manager repository listOfModules cvsRootPrototypeList
c605d7909165 * empty log message * penk parents: 5035 diff changeset	187	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
c605d7909165 * empty log message * penk parents: 5035 diff changeset	188	removePerModuleRoot perModuleRoot cvsRootHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	189	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	190	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	191	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	192	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	193	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	194
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	195	AbstractSettingsApplication subclass:#StyleSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	196	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
c605d7909165 * empty log message * penk parents: 5035 diff changeset	197	styleDirectoryContents infoLabelHolder noticeLabelHolder'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	198	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	199	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	200	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	201	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	202
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	203	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	204	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	205	fullSelectorCheck syntaxColoring oldUserPreferences
c605d7909165 * empty log message * penk parents: 5035 diff changeset	206	syntaxFontSelector syntaxFonts syntaxElementList
c605d7909165 * empty log message * penk parents: 5035 diff changeset	207	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	208	emphasisDictionary resetListDictionary'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	209	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	210	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	211	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	212	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	213
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	214	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	215	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
c605d7909165 * empty log message * penk parents: 5035 diff changeset	216	changeFileName'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	217	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	218	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 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:#ToolsSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	223	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
c605d7909165 * empty log message * penk parents: 5035 diff changeset	224	showClockInLauncher useNewChangesBrowser useNewFileBrowser
c605d7909165 * empty log message * penk parents: 5035 diff changeset	225	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
c605d7909165 * empty log message * penk parents: 5035 diff changeset	226	useProcessMonitorV2'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	227	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	228	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	229	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	230	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	231
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	232	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	233
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	234	windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	235
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	236	self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	237	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	238
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	239	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	240
68504047f229 * empty log message * penk parents: 4286 diff changeset	241	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	242
68504047f229 * empty log message * penk parents: 4286 diff changeset	243	^ AbstractLauncherApplication classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	244	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	245
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	246	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	247
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	248	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	249	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	250
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	251	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	252	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	253
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	254	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	255	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	256	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	257
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	258	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	259	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	260	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	261
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	262	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	263
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	264	evaluateModified
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	265
c72e35116b13 instable state penk parents: 5040 diff changeset	266	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	267	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	268	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	269
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	270	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	271	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	272	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	273
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	274	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	275	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	276
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	277	(self hasUnsavedChanges) ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	278	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	279	result := self confirmWithCancel:(resources
97ccd5a946f4 next step penk parents: 4813 diff changeset	280	string:'Save changed ' , settingsString , ' ?').
97ccd5a946f4 next step penk parents: 4813 diff changeset	281	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	282	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	283	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	284	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	285	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	286	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	287	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	288	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	289	] ifFalse:[
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	290	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	291	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	292	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	293	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	294	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	295
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	296	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	297	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	298	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	299	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	300	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	301	!
c72e35116b13 instable state penk parents: 5040 diff changeset	302
c72e35116b13 instable state penk parents: 5040 diff changeset	303	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	304	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	305	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	306
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	307	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	308
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	309	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	310
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	311	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	312	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	313	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	314	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	315	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	316
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	317	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	318
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	319	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	320	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	321	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	322	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	323	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	324	"/ self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	325	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	326
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	327	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	328
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	329	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	330	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	331	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	332
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	333	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	334
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	335	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	336	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	337
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	338	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	339
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	340	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	341	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	342
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	343	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	344
289972d3e455 * empty log message * penk parents: 4319 diff changeset	345	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	346	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	347	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	348	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	349
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	350	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	351	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	352	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	353
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	354	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	355
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	356	self basicSaveSettings.
4657 a59ba78d52d2 reset UserPrefernces instance on saveSettings because Userpreferences current may change penk parents: 4656 diff changeset	357	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	358	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	359	! !
44e2f83cc526 initial checkin penk parents: diff changeset	360
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	361	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	362
1bde09704293 * empty log message * penk parents: 4893 diff changeset	363	itemPathName
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	364	^ self settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	365	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	366
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	367	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	369	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	371	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	372	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	374	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	375
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	376	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	377	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	378
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	379	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	380
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	381	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	382	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	383	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	384
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	385	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	386	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	387
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	388	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	389	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	390	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	391	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	392	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	393
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	394	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	395
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	396	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	397	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	398	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@@@@@G.=0G.=3D*%QG.=0@@@@G?>3DNN1G=60DM>0G=>0DM>0G=60DNN0G?>0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	399	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	400
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	401	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	403	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	404	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	405	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	406
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	407	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	408	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	409
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	410	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	412	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	413	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	414	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	415
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	416	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	418	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	419	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	420	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	421	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	422	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	423	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	424	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	425	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	426	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	427	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	428	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	429	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	430	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	431	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	538	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	539	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	545	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	546	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	547	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	548	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	549	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	550	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	551	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	552	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	554	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	555	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	556	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	557	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	558	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	559	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	560	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	561	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	562	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	563	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	564	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	565	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	566	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	567	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	568	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	569	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	570	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	571	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	572	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	573	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	574	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	575	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	576	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	577	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	578	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	579	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	580	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	581	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	582	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	583	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	584	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	585
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	586	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	587	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	588	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	589
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	590	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	591	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	592	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	593	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	594	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	595	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	596	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	597	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	598	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	599	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	600	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	601	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	602	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	603	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	604	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	605	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	606	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	607	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	608	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	609	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	610	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	611	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	612	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	613	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	614	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	615	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	616	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	617	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	618	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	619	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	620	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	621	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	622	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	623	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	624	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	625	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	626	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	627	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	628	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	629	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	630	#layout: #(#LayoutFrame 170 0 0 0 -5 1 22 0)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	631	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	632	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	633	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	634	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	635	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	636	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	637
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	638	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	639	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	640	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	641	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	642
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	643	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	649	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	650
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	651	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	653	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	668	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	669	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	671	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	672	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	673	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	674	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	675	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	676	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	678	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	679
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	680	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	681	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	682	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	683	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	684	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	685	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	686	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	687	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	688	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	689	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	690
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	691	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	692
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	693	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	694	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	695
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	696	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	697	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	698	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	699	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	700	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	701	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	702	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	703	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	704	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	705	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	706	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	707	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	708	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	709	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	710	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	711	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	712	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	713	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	714	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	715	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	716	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	717	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	718	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	719	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	720	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	721	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	722	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	723	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	724	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	725	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	726	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	727	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	728	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	729	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	730	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	731	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	739	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	745	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	755	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	764	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	773	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	782	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	791	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	800	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	828	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	859	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	867	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	868	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	876	immutableArrays onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	889	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	898	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	907	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	916	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	925	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	934	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	943	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	952	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	963	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	968	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	972	changedObject value ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	984	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	987	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	988
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	989	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992
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	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1001	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1002	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1005	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1006	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1009	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1010	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1011	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1012	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1013	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1014	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1016	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1018	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1019	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1020
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1023	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1026	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1027	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1051	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1052	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1110	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1111	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1115	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1116	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1117	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1123	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1124	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1125	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1126
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1127	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1128	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1129	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1130	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1131
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1132	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1133	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1134	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1135	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1136
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1137	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1138	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1139	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1140
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1141	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1142	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1143	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1144
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1145	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1146
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1147	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1148
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1149	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1150	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1151	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1152	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1153	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1154	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1155	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1156	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1157
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1159
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1160	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1163
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1164	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1165	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1166	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1167	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1168	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1170	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1177	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1178	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1179	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1184	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1187	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1188	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1192
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1193	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1194
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1195	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1197	showVerboseStack onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1198	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1200	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1202	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1203
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1204	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1205
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1206	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1207	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1208	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1209	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1210	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1211	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1212	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1213
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1234	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1235
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1236	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1237
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1238	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1239	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1240
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1241	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1243	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1244	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1245
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1254
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1256	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1257	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1258	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1259	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1260
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1262
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1263	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1264	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1265	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	1266	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y&Y&Y&Y&Y&&P@@A&Y&Y&Y&Y&ZY@@@FXXUUV***)9$0@@Y!!H"H+.AF''&S@@A&,"H"H+DZ^YL@@F
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1267	Z2H"H",Q)9$0@@Y(H"J;-QF''&S@@A&E[.HUQDZ^YL@@FXUUUUUDQ)$0@@Y!!UUUUTQF&S@@A&(QF$*$QD^YL@@I&Y&Y&Y&Y&Y$0@@&Y&Y&Y&Y&Y&S@@@@L3
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1268	M)&YL3L3L@@@@@@F&Y$3@@@@@@@@ZY&Y&Y&S@@@@@@A)&Y&Y&YL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 80 112 112 64 64 64 48 64 80 64 96 96 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@G??0G??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8A??8@G<@@??@@??@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1269	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1270
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1281	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1282	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1283	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1297	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1341	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1359	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1458	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1460	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1463
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1464	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1466	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1467
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1471	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473	Color getColorsRed:4 green:8 blue:4 on:screen
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	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1476	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1477	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1478
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1479	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1480	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1487	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1488	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1489	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1490	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1491	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1492
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1493	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1494	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1495	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1496	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1497
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1498	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1499	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1500	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1501
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1502	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1503	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1504
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1510
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1511	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1519	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1520	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1521	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1522	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1523	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1524	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1525	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	^ clipEncodingList.
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	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1545	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1554	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1575	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1592	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1610	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1633	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1638	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1644	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1653	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1670	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1687	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1738
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1740
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1741	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1764	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1765
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	postOpen
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	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1800	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1802
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1803	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1804
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1805	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1806	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1807	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1809	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1810	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1811
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1814	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1815	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1816	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1817
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1818	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1819
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1820	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1821	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1822	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	1823	*****************************("H"H"H"H"J(@"EUUU%UUUU@@^*HUUUVUUUU@@]:(!!UUUYUUUT@A7"FY&Y&Y&X@]7^HUUUVUU@@]7\Z*(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1824	!!UUUYU@@]7\R"EUUU%T@A7]1JHY&Y&XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHY&Z#L3L6)D(!!&YL3L6Z$R*"EUUP3M&ZEQJ*HUU
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1825	RRY(UUUD**(")J***$R"J)J***QJHUUUZUUUUUDTQDQDQDQDQDR*************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1826	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1827
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1834	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1838	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1839	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1840	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1850	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1851	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1854	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1861	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1916	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925	)
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1930	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1931
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1932	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1933	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1934	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1935	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1936	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1938	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1939	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1940	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1941	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1942	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1943
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1950	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1951	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1952	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1953	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1954	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1955	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1956	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1957	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1958	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1959	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1968	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	st80DoubleClickSelectMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1977	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1986	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1995	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2004	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2054
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2055	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2056
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2057	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2058	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2059	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2060
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2061	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2062	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2063
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2064	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2065	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2066	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2067	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2070	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2071
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2072	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2073	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2074	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	2075	@@@@@@@@@@@@@@@@@@@@@!!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	2076	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	2077	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	2078	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2081	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2082	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2084	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2085	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2087	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2088	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2089	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2091	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2093	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2094
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2095	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2096	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2097	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	2098	@@@@@@@@@@@@@@@@@@@@@!!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	2099	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	2100	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	2101	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2102
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2115	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2119	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2121	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2125	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2126	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2127	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2135	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2140	#max: #(#Point 1024 768)
4727 3e5f6ddd50d8 no bold labels Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	2141	#bounds: #(#Rectangle 16 46 512 658)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2143	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2145	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2146	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2147	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2148	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2149	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2150	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2151	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2152	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2153	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2155	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2156	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2157	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2158	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2159	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2160	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2161	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2162	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2163	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2164	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2165	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2166	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2167	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2168	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2171	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2172	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2175	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2186	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2189
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2191	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2195	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2196	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2197	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2200	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2201	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2303	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2376	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2378	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2379
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2381	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2382	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2386	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2388	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2390	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2394	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2395	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2398	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2399
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2400	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2401
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2402	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2403	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2404	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2405	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2406	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2407	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2408	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2409	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2410
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2411	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2412	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2414	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2415	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2416	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2417	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2418	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2419	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2420	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2421	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2422	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2423	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2424	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2425	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2426	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2427
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2428	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2430	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2433	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2434	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2435	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2436	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2437	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2442	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2449	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2450	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2461	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2473	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2485	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2495	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2502	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2538	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2556	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2574	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2592	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2610	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2618	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2619	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2620	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2621	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2622	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2623	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2624	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2625	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2627	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2628	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2629	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2630	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2631	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2632	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2633	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2634	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2635	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2636	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2637	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2638	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2639	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2640	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2641	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2643	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2645	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2646
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2647	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2648	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2649	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2650	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2651	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2652	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2655
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2657	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2658
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2659	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2660	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2661	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2662	''
c72e35116b13 instable state penk parents: 5040 diff changeset	2663	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	2664	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	2665	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2666	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2667	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2702	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2703	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2704	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2705	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2719	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2720
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2721	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2722
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2723	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2724	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2725
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2726	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2727
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2728	^ #('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	2729	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2730
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2731	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2732
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2733	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2734	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2735	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2736
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2737	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2738	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2739
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2740	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2741	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2742	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2743	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2744	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2745
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2746	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2747
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2748	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2749	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	2750	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@C@@@@G.=0G.=0D*%PG.=0@@@@G??0GC#0G]]0G]_0GC_0G]_3G]]0GC#0G??3@@@A@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2751	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2752
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2753	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2754
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2755	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2756	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2757	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2758
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2759	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2760	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2761
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2762	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2763	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2764	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2765	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2766	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2767
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2768	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2770	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2771	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2772	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2773	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2774	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2775	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2776	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2777	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2781	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2782	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2789	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2792	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2793	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2795	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2824	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2837	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2838	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2846	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2872
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2873	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2874
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2875	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2876	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2877	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2878	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2879	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2880	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2881	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2882	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2883	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2884	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2885	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2886	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2887	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2888
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2889	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2895	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2896	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2897	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2898	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2899	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2901	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2902	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2906	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2907	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2908	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2909	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2910	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2911	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2912	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2913	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2918
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2919	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2920	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2923	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2924
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2928	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2929	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2930	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2934	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2937	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2938	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2944
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2951	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2954	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2956	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2959	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2961	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2965	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2967	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2982	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	!
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	loadBinaries
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	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2995	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 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	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2998	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2999
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3000	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003
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	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	]]]]]
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
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3015	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3016
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3017	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3018	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3019	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3020
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3021	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3022	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3023
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3024	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3025	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3026	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3027	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3028	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3029
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3030	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3031
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3032	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3033	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3034	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	3035	@@@@@@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	3036	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	3037	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	3038	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	3039	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3040	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	3041	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3042
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3043	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3044
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3045	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3046	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3047	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3048
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3049	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3050	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3051
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3052	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3053	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3054	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3055	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3056	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3057
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3058	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3059
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3060	^
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3061	#(#FullSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3062	#name: #windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3063	#window:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3064	#(#WindowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3065	#label: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3066	#name: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3067	#min: #(#Point 10 10)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3068	#max: #(#Point 2048 1024)
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3069	#bounds: #(#Rectangle 16 42 555 672)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3070	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3071	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3072	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3073	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3074	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3075	#name: 'VerticalPanel1'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3076	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3077	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3078	#verticalLayout: #top
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3079	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3080	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3081	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3082	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3083	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3084	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3085	#name: 'VerticalPanel4'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3086	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3087	#verticalLayout: #topSpace
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3088	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3089	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3090	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3091	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3092	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3093	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3094	#name: 'Box19'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3095	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3096	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3097	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3098	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3099	#label: 'Label'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3100	#name: 'Label2'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3101	#layout: #(#LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3102	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3103	#labelChannel: #informationLabel
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3104	#resizeForLabel: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3105	#adjust: #left
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3106	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3107	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3108
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3109	)
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3110	#extent: #(#Point 539 200)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3111	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3112	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3113	#name: 'Box18'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3114	#extent: #(#Point 539 20)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3115	)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3116	#(#ViewSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3117	#name: 'Box17'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3118	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3119	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3120	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3121	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3122	#label: 'Port:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3123	#name: 'Label1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3124	#layout: #(#LayoutFrame 3 0 21 0 40 0 43 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3125	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3126	#adjust: #right
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3127	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3128	#(#InputFieldSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3129	#name: 'EntryField1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3130	#layout: #(#LayoutFrame 40 0 20 0 100 0 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3131	#model: #portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3132	#type: #number
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3133	#immediateAccept: true
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3134	#acceptOnReturn: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3135	#acceptOnTab: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3136	#acceptOnLostFocus: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3137	#acceptOnPointerLeave: false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3138	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3139	#(#ActionButtonSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3140	#label: 'Create new HTTP Server'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3141	#name: 'Button4'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3142	#layout: #(#LayoutFrame 125 0 20 0 -5 1 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3143	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3144	#model: #createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3145	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3146	#(#ActionButtonSpec
5060 49f5738bf631 * empty log message * penk parents: 5055 diff changeset	3147	#label: 'Create Server from Settingsfile...'
5049 3df132763949 instable state penk parents: 5044 diff changeset	3148	#name: 'Button6'
3df132763949 instable state penk parents: 5044 diff changeset	3149	#layout: #(#LayoutFrame 125 0 51 0 -5 1 73 0)
3df132763949 instable state penk parents: 5044 diff changeset	3150	#translateLabel: true
3df132763949 instable state penk parents: 5044 diff changeset	3151	#model: #createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3152	)
3df132763949 instable state penk parents: 5044 diff changeset	3153	#(#ActionButtonSpec
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3154	#label: 'Remove all HTTP Servers'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3155	#name: 'Button5'
5049 3df132763949 instable state penk parents: 5044 diff changeset	3156	#layout: #(#LayoutFrame 125 0 82 0 -5 1 104 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3157	#translateLabel: true
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3158	#model: #removeAllServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3159	#enableChannel: #hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3160	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3161	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3162
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3163	)
5049 3df132763949 instable state penk parents: 5044 diff changeset	3164	#extent: #(#Point 539 120)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3165	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3166	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3167
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3168	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3169	#extent: #(#Point 539 620)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3170	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3171	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3172
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3173	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3174	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3175	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3176
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3177	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3178	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3179	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3180
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3181	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3182
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3183	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3184
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3185	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3186	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3187
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3188	createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3189
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3190	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3191
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3192	port := self portNumberChannel value.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3193	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3194	runningServers notEmpty ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3195	runningServers do:[:aServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3196	aServer port = port asInteger ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3197	Dialog warn:'There is already a Server for port ', port asString.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3198	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3199	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3200	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3201	].
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3202	runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3203
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3204	self withWaitCursorDo:[
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3205	newServer := HTTPServer newDefaultServer.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3206	newServer port:port.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3207	self createServerApplicationFor:newServer.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3208	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3209	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3210
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3211	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3212	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3213
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3214	openApps := self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3215	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3216	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3217	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3218	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3219
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3220	settingsApp := HTTPServerSettingsAppl basicNew.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3221	settingsApp settingsDialog:self settingsDialog.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3222	settingsApp httpServerInstance:aServerInstance.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3223	settingsApp defaultSettingsApplication:false.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3224	settingsApp basicInitialize.
5044 fea72184bd8e instable state penk parents: 5041 diff changeset	3225	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3226	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3227	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3228	self createdServerChanged.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3229	self settingsDialog expandItemForApplication:self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3230	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3231	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3232
5049 3df132763949 instable state penk parents: 5044 diff changeset	3233	createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3234
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3235	\| newServer fileName runningServers newServerPort answer\|
5049 3df132763949 instable state penk parents: 5044 diff changeset	3236
3df132763949 instable state penk parents: 5044 diff changeset	3237	runningServers := HTTPServer runningServers.
3df132763949 instable state penk parents: 5044 diff changeset	3238	fileName := Dialog requestFileName:'Select a HTTPServer Settings File'
3df132763949 instable state penk parents: 5044 diff changeset	3239	default:(HTTPServer settingsFilename)
3df132763949 instable state penk parents: 5044 diff changeset	3240	pattern:'*xml'
3df132763949 instable state penk parents: 5044 diff changeset	3241	fromDirectory:(Filename currentDirectory).
3df132763949 instable state penk parents: 5044 diff changeset	3242	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3243	self withWaitCursorDo:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3244	newServer := HTTPServer serverFromSettingsFile:(fileName asFilename).
b3cba6441579 ready to use penk parents: 5049 diff changeset	3245	newServer notNil ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3246	newServerPort := newServer port.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3247	runningServers notEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3248	[self hasServerForPort:newServerPort] whileTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3249	answer := Dialog
b3cba6441579 ready to use penk parents: 5049 diff changeset	3250	request:('There is already a Server for port ', newServerPort asString, ' Please select another one')
b3cba6441579 ready to use penk parents: 5049 diff changeset	3251	initialAnswer:self portNumberChannel value asString.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3252	answer isEmpty ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3253	^ self
b3cba6441579 ready to use penk parents: 5049 diff changeset	3254	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3255	newServerPort := answer asNumber.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3256	]
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3257	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3258	newServer port:newServerPort.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3259	runningServers addDependent:self.
b3cba6441579 ready to use penk parents: 5049 diff changeset	3260	self createServerApplicationFor:newServer.
5049 3df132763949 instable state penk parents: 5044 diff changeset	3261	].
3df132763949 instable state penk parents: 5044 diff changeset	3262	].
3df132763949 instable state penk parents: 5044 diff changeset	3263	!
3df132763949 instable state penk parents: 5044 diff changeset	3264
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3265	createServerSubApplicationsForRunningServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3266
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3267	\|runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3268
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3269	HTTPServer isLoaded ifFalse:[ ^ self].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3270
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3271	runningServers := HTTPServer runningServers asOrderedCollection.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3272	runningServers isEmpty ifTrue:[ ^ self].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3273	runningServers sort:[:a :b \| a port < b port].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3274	runningServers do:[:aHttpServerInstance \|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3275	self createServerApplicationFor:aHttpServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3276	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3277	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3278
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	3279	hasServerForPort:newServerPort
b3cba6441579 ready to use penk parents: 5049 diff changeset	3280
b3cba6441579 ready to use penk parents: 5049 diff changeset	3281	HTTPServer runningServers do:[:aServer \|
b3cba6441579 ready to use penk parents: 5049 diff changeset	3282	aServer port = newServerPort ifTrue:[
b3cba6441579 ready to use penk parents: 5049 diff changeset	3283	^ true
b3cba6441579 ready to use penk parents: 5049 diff changeset	3284	]
b3cba6441579 ready to use penk parents: 5049 diff changeset	3285	].
b3cba6441579 ready to use penk parents: 5049 diff changeset	3286	^ false
b3cba6441579 ready to use penk parents: 5049 diff changeset	3287	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	3288
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3289	readSettings
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3290	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3291	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3292	HTTPServer runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3293	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3294	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3295	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3296	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3297	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3298
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3299	removeAllServerSubApplications
5049 3df132763949 instable state penk parents: 5044 diff changeset	3300	self settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3301	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3302
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3303	removeAllServers
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3304	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3305	HTTPServer terminateAllServers.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3306	].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3307	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3308	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3309	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3310
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3311	setPortOnFreePort
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3312
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3313	\| highestUsedPortNr portToUse instances\|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3314
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3315	HTTPServer isLoaded ifFalse:[
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3316	portToUse := 8080
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3317	] ifTrue:[
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3318	instances := HTTPServer runningServers asSet.
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3319	instances addAll:((self settingsDialog getAllChildrenAppsForApplication:self) collect:[:aApp\| aApp httpServerInstance]).
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3320	highestUsedPortNr := instances
5034 3a50f655ee4d fix errors happend on checkin/checkout penk parents: 5032 diff changeset	3321	inject:(HTTPServer port - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3322	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3323
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3324	portToUse := highestUsedPortNr + 1
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3325	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3326	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3327	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3328
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3329	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3330
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3331	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3332	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3335	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3336	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3337	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3338
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3339	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3340	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3341	"/ 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	3342	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3343	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3344	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3345	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3346	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3347
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3348	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3349	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3350	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3351	default:
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3352	'This dialog allows to control individual running servers
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3353	(if you want to handle multiple servers on multiple ports)
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3354	Every new created server startup with the settings provided
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3355	by the Default Item.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3356	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3357
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3358	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3359
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3360	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3361	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3363	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3364	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3365
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3366	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3367
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3368	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3369
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3370	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3371	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3372	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3373
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3374	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3375	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3376	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3377	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3378
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3379	update:something with:aParameter from:changedObject
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3380	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3381	changedObject == HTTPServer runningServers ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3382	self runningServersChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3383	^ self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3384	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3385	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3386	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3387	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3388
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3389	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3390
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3391	release
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3392	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3393	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3394	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3395	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3396
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3397	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3398
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3399	hasCreatedServer
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3400
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3401	^ (self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3402	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3403
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3404	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3405
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3406	^ false
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3407	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3408
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3409	help
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3410
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3411	self warn:'no help available here'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3412	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3413	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3414
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3415	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3417	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3418	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3419	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3420
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3421	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3422	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3423
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3424	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3425	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3426	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3427	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3428	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3429
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3430	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3431
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3432	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3433	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3434	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3435	@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B%P@@@@@JUT@@@@@)TE@@H@BUTQP@@@ETTQ\@@@JTTU?@@@J$@W<@@@B)U_0@@@@U?@@@@@J''<@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3436	@@B''0@@@@@@''@@@O@@@D@@@@@@@@@@@K@@@@@@@@@@@@@@@M@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 192 192 192]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G@@@O @@_0@@?8@A?<@C?>@G??@G?? G??@C?>@A?<@@?8@@_0@@O @@G@@@B@@@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3437	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3438
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3439	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3440
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3441	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3442	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3443	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3444
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3445	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3446	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3447
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3448	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3449	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3450	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3451	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3456	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3461	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3462	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3465	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3472	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3534	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3535	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3542	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3543	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3544	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3548	basicSaveSettings
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3549	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3550
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3551	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3556	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3557	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3562	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3563	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3564
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3565	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3566	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3567	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3568	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3569
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3570	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3571	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3572	"/ 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	3573	"/ functionKeyList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3574	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3575	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3576	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3577	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3578
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3579	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3580	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3581
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3582	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3583	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3584	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3585	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3586
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3587	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3588	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3589	"/ 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	3590	"/ labelTextHolder addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3591	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3592	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3593	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3594	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3595
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3596	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3613	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3621	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3630	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3641	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3648	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3653	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3684	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3698	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3713	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3730	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3732	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3736	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3737	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3744	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3746	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3748
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3749	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3751	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3752	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3753	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3754
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3755	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3756	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3757
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3758	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3759	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3760	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3761	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3762	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3763
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3764	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3765
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3766	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3767	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3768	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	3769	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B (JB (@@@@@@@@F <O@@@@@@@@@@@ZJB (GA0\GA0(JB VE @@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3770	F" (JA0\GA0\GB (E!!X@@@@@@@@@@A((JA0\GA0\GA0\JA(Z@@@@@@@@@@@ZJB \GA0\GA0\GB (J@@@@@@@@@@@F" (@@X\G@X@GA0(JB B@@@@@@@@@A((
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3771	J@@FB0,F@@(J@@(J@ @@@@@@@@@ZJB @@@XFB0X@@@TEAPTE@@@@@@@@F" (@ALFA!!4S@0LBAPTEB@@@@@@@@AT@@@@]H2L#GP8NDQLSG2@WE0$@@@@U@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3772	GQ<_G1<NC!!DSD1<_E1\I@@@@A@@@@AL]GRLSD!!HMF1,_G1<_BP@@@@@@@@@SFQ$''I"T%EALSHRP^G $@@@@@@@@@D1$"H"H%IQPSD2D$G"HI@@@@@@@@@AP"
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3773	H"X"H"H"H"H"H"H"A0@@@@@@@@@PFA LA2H"CBH"I"\"H 0@@@@@@@@@C@0L@@@GA00GA00LA0\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3774	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 32 32 32 48 48 48 49 48 49 54 54 54 69 69 69 75 67 22 82 82 82 85 14 14 89 89 89 105 105 105 106 88 25 110 19 19 113 19 19 131 129 131 134 122 39 149 25 25 149 26 26 158 27 27 158 140 45 164 161 164 164 161 172 165 43 43 177 161 52 196 175 0 197 194 197 204 36 36 204 75 75 205 36 36 205 113 38 212 66 66 216 81 81 223 72 72 227 202 66 231 120 120 231 123 123 255 129 0 255 238 162 255 251 229 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@O \@??>@??>@??>@??>@???0???0???0???8???8???8???89??81??81??81??81??8A9?0A@@@A@@@A@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3775	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3776
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3779	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3783	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3787	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3788	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3789	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3803	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3810	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3815	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3819	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3840	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3842	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3844	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3845	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3846	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3852	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3853	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3854	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3855	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3856	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3857	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3858	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3859	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3860	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3861	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3862	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3863	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3864	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3865	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3866	#model: #rereadResourceFiles
4737 b513890618b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3867	#extent: #(#Point 228 22)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3868	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3869	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3870
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3871	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3872	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3881	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	^ languageList
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	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3889	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3914
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3918	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3934	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	string:'Your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954	answer ifTrue:[
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3955	switch := ( self settingsDialog fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3958	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3963	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3964	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3968	switch ifTrue:[
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3969	self settingsDialog notNil ifTrue:[
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3970	self settingsDialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3971	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3972	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3973	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3975	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	self currentLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3977	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3978
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3979	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3980
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3981	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3982	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3983
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3984	help
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3985
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3986	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3987	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3989	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3990	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3991	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3992	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3993	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3994
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3995	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3996	ResourcePack flushCachedResourcePacks.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3997
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3998	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3999	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4000
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4001	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4002	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4007	currentLanguageChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4015	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4023	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4027	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4032	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4042	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4059	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4063	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	languageList := translatedLanguages with:flags collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4093
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4094	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4099	currentLanguage
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4103	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4104	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4105	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4106	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4107	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4108	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4111	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4113	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4116	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4117
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4118	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4119	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4120	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4121
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4122	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4123	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4124
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4125	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4126	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4127	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4128	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4129	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4130
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4131	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4132
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4133	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4134	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4135	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	4136	@@@@@@@@@@@@@@@@@@@@@@?0@@@@@@@@@@@L;8;!!0@@@@@@@@@VL0W\,@@@@@@@L<T,W]43@@@@@@I,"8Z(R-10@@@@I<,,ZQ78P@@@L24DZ**E0H@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4137	<,EM7Z**E00P@LTR9M7]7ZE0H50@=RE0C]7]E0BF?0<,E0@@C]Q0HREPBK-0@@@@Q0T?H\@KTA4@@@^-4_=\@@H A@@@^ JOG<@@@ID@P@^ GE3O@@@@AP@D
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4138	R EO:O0@@@@@T@4PT%3,@@@@@@@E4G_58%@@@@@@@@AZ\QGL0@@@@@@@@@@@1<@@@@@@@@@@@@@D@@@@@@@b') ; colorMapFromArray:#[0 0 0 80 80 80 160 160 160 240 240 240 64 64 64 144 144 144 224 224 224 48 48 48 128 128 128 208 208 208 32 32 32 112 112 112 192 192 192 16 16 16 96 96 96 176 176 176]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@A @@G>@@G?@@_? @??0A??0C??8C??8O??<O??<_??8_??8_??0_?? O??@G??@C?<@A?8@@?8@@C @@A@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4139	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4140
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4143	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4151	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4152	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4153	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4160	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4168	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4169	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4170	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4171	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4172	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4177	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4178	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4179	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4181	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4182	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4183	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4184	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4185	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4186	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4187	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4188	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4189	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4192	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4201	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4203	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4206	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4219	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4230	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4241	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4268	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4275	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4277	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4279	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4286	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4295	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4302	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4303	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4304	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4305	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4306	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4307	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4308	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4309	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4310	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4311	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4312	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4313	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4314	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4315	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4316	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4317	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4319	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4320	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4321	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4322	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4323	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4324	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4326	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4327	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4328	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4329	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4330	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4331	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4332	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4333	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4334	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4335	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4336	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4337	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4338
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4340	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4341	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4342	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4343	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4344	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4345	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4346	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4347	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4348	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4349	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4350	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4351	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4352	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4353	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4354	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4355	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4356	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4357	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4358	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4359	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4360	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4361	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4362	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4363	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4364	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4365	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4366	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4368	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4370	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4371	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4372	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4373	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4374	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4377	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4378	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4380	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4381	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4382	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4383	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4384	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4385	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4386	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4387	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4388	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4389	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4390	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4391	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4392	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4393	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4394	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4395	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4396	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4397	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4398	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4399	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4400	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4401	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4402	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4403	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4404	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4405	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4406	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4407	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4408	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4409	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4410	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4411	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4412	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4413	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4414
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4415	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4416	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4417	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4418	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4419	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4420	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4421	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4422	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4423	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4424	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4425	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4426	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4427	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4428	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4429	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4430	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4431	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4434	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4435	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4436	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4437	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4438	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4439	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4440	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4441	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4442	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4443	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4444	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4445	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4446	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4447	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4448	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4449	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4450	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4451	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4452
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4453	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4454	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4455	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4456	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4457	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4458	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4459	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4460	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4461	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4462	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4463	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4464	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4465	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4466	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4467	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4468	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4469	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4470	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4471	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4472	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4473	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4474	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4475	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4476	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4477	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4478	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4479	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4480	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4481	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4482	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4483	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4484	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4485	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4486	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4487	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4488	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4489	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4490
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4491	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4492	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4493	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4494	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4495	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4496	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4497	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4498	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4499	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4500	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4501	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4502	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4503	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4504	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4505	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4506	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4507	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4508	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4509	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4510	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4511	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4512	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4513	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4514	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4515	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4516	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4517	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4518	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4519	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4520	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4521	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4522	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4523	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4524	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4525	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4533	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4536	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4537	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4538	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4545	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4547	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4552	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4553	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4556	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4557	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4563	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4585	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4592	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4595	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4596	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4597	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4598	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4599	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4600	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4601	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4602	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4603	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4604	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4605	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4606
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4607	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4608	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4609	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4610	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4612	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4613	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4614	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4616	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4617	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4618	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4620	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4621
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4622	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4623
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4624	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4625	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4626	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4627	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4628	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4629	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4630	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4631	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4632	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4633	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4634	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4635	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4636
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4637	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4639	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4640	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4641	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4643	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4644	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4645	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4646	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4647	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4648	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4649	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4650	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4651	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4652	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4653	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4654	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4655	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4656	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4658	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4659
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4660	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4661
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4662	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4663	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4664	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4665	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4666	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4667	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4668
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4669	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4670
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4671	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4672	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4673	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4674	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4675	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4676	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4678	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4679
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4680	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4681	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4682	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4683	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4684	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4685	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4686
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4687	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4688
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4689	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4690	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4691	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4692	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4693	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4694	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4695
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4696	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4697
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4698	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4699	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4700	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4701	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4702	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4703	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4704
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4705	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4706
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4707	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4708	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4709	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4710	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4711	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4712	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4713
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4714	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4715
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4716	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4717	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4718	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4719	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4720	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4721	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4722
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4723	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4724
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4725	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4726	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4727	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4728	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4729	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4730	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4731
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4732	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4733
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4734	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4735	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4736	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4737	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4738	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4739	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4740
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4741	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4745	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4750	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4754	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4759	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4762	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4764	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4774	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4776	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4783	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4785	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4786	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4791	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4792	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4793	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4794	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4795	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4796	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4797	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4798	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4799
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4800	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4801
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4802	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4803	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4804	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4805
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4806	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4807	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4809	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4810	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4811	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4812	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4813	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4814
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4815	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4816
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4817	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4818	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4819	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	4820	@@!!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	4821	]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	4822	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	4823	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4824
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4825	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4827	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4828	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4829	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4832	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4833
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4835	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4836	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4837	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4838	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4843	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4851	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4852	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4858	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4859	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4860	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4861	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4862	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4863	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4864	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4865	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4866	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4867	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4868	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4869	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4870	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4871	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4872	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4883	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4884	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4885	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4899	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4942	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4945	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4946	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4947	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4952	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4958	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4959	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4960	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4961	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4962	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4963	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4964	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4965	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4966	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4967	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4968	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4969
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4970	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4971	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4972	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4973	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4974
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4975	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4976	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4977	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4978	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4979
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4980	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4981	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4982	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4983
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4984	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4985	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4986	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4987
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4988	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4990	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4991
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4992	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4993	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4994	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4995	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4996	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4997	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4998	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4999	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5000	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5001	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5002	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5003	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5004	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5005	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5006	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5007	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5008	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5009	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5010	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5011	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5012	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5013	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5014	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5015	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5016	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5017	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5018	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5019	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5020	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5021	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5022	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5023	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5024	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5025	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5026	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5027	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5028	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5029	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5030	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5031	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5032
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5033	help
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5034
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5035	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5036	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5037	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5038
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5039	readSettings
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5040	self remoteBrowsingEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5041	value:(self hasRemoteBrowsingSupport
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5042	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5043	self windowMigrationEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5044	value:(self hasWindowMigrationServer
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5045	and:[ WindowMigrationServer isLoaded
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5046	and:[WindowMigrationServer serverRunning]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5047	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5048	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5049	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5050	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5051	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5052	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5053	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5054	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5055	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5056	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5057	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5058
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5059	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5060
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5061	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5062
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5063	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5064	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5065	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5066	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5067	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5068	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5069	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5070	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5071	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5072
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5073	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5074
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5075	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5076	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5077	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5078	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5079	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5080	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5081
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5082	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5083
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5084	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5085	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5086	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5087	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5088	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5089	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5090
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5091	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5092
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5093	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5094	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5095	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5096	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5097	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5098	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5100	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5102	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5103	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5104	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5105	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5106	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5107	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5108
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5111	update:something with:aParameter from:changedObject
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5112	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5113
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5114	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5115
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5116	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5117	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5118	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5119
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5120	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5121	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5122
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5123	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5125	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5126	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5127	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5128	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5129
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5130	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5131
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5132	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5133
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5134	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5135	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5136
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5137	hasUnsavedChanges
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5138	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5139	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	5140	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5141	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5142	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5143	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5144	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5145	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5146	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5147	(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	5148	(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	5149	(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	5150	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5151	^ false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5152	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5153
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5154	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5155
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5156	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5157	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5158
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5159	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5160
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5161	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5162	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5163	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5164
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5165	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5166	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5167
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5168	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5169	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5170	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5171	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5172	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5174	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5175
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5176	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5177	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5178	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	5179	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5180	@@@@@@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	5181	@ 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	5182	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	5183	@ 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	5184	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	5185	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5186
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5187	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5189	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5191	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5193	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5197	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5198	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5199	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5202	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5203
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5204	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5209	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5210	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5211	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5212	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5213	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5214	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5215	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5216	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5218	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5219	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5220	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5221	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5222	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5223	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5224	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5225	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5226	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5227	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5228	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5229	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5230	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5231	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5232	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5233	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5234	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5235	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5236	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5237	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5238	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5239	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5240	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5241	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5242	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5243	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5244	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5245	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5246	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5247	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5248	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5249	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5250	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5251	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5252	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5253	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5254	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5255	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5256	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5257	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5258	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5259	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5260	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5261	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5262	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5263	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5265	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5266	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5267	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5268	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5269	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5270	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5271	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5272	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5273	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5274	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5275	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5276	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5277	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5278	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5279	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5280	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5281	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5282	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5283	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5284	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5285	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5286	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5287	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5288	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5289	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5290	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5291	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5292	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5293	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5294	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5295	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5296	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5297	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5298	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5299	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5300	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5301	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5302	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5303	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5304	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5305	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5306	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5307	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5308	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 -22 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5309	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5310	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5311	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5312	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5313	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5314	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5315	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5316	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5317	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5318	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5319	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5320	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5321	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5322	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5323	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5324	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5325	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5326	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5327	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5328	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5329	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5330	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5331	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5332
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5333	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5334	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5335	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5336	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5337
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5338	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5339	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5340	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5341	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5343	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5344	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5345	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5347	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5348	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5349	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5350
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5351	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5352
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5353	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5354
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5355	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5356	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5357	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5358	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5359	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5360	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5361	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5362
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5363	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5364	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5365	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5366
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5367	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5368	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5369	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5370	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5371	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5372	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5373	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5374	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5375	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5376
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5377	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5378	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5379
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5380	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5381
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5382	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5383	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5384	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5385	Screen current activateOnClick:self activateOnClick value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5386
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5387	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5388
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5389	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5390	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5391
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5392	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5393	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	5394
c72e35116b13 instable state penk parents: 5040 diff changeset	5395	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	5396	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	5397	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	5398	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5399	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	5400	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5401	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	5402	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5403	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5405	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5406
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5407	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5408	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5409	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5410
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5411	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5412	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5413	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5414	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5415	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5416	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5417	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5418	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5419	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5420	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5422	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5423	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5424	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5425	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5427	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5429
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5430	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5432	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5436	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5440
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5441	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5445	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5447	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5448	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5449
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5450	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5453	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5454	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5455	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5456	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5457	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5458
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5459	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5460
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5461	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5462	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5463	('Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\' withCRs)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5464	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5465	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5466	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5467
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5468	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5469	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5470	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5471
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5472	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5473
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5474	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5475	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5476	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5477	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5478	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5479	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5480
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5481	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5482
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5483	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5484	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5485	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5486	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5487	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5488
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5489	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5490	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5491
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5492	opaqueTableColumnResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495	opaqueTableColumnResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5496	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5500
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5501	opaqueVariablePanelResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5503	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504	opaqueVariablePanelResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5505	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5506	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5507	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5508	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5509
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5510	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5514	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5518
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5519	shadows
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5521	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5522	shadows := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5523	shadows onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5524	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5525	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5526	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5527
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5528	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5530	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5532	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5535	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5536
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5537	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5540	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5541	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5542	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5543	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5545
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5546	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5548	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5549	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5550
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5551	postOpenAsSubcanvasWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5553	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5554	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5557	postOpenWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5560	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5563	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5564
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5565	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5567	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5568	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5569	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5570	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5571	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5572	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5573	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5574	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5575	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5576	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5577	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5578	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5579	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5580	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5581
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5582	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5583	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5584
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5585	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5587	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5588	<resource: #programImage>
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5589	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5590	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5591
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5592	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5593
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5594	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5595	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5596	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5597
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5598	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5599	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5600
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5602	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5603	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5604	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5606
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5618	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5622	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5631	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5632	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5636	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5640	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5642	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5643	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5644	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5645	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5646	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5647	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5649	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5654	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5655	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5656	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5657	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5658	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5660	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5662	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5663	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5664	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5668	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5669	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5670	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5671	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5672	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5673	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5674	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5675	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5676	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5677	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5678
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5679	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5680	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5682	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5683	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5684	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5685	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5686	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5687	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5688	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5689	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5690	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5691	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5692	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5693	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5694	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5696	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5697	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5698	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5699	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5700	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5701	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5702	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5703	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5704	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5705	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5706	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5707	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5708	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5709	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5710	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5711	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5712	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5713	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5714	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5715	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5716	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5717	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5718	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5719	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5720	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5721	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5722
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5723	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5724	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5725	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5726	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5727	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5728	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5729	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5730	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5731	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5732	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5733	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5734	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5735	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5736	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5737	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5738	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5739	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5742	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5743	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5744	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5745	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5746	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5747	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5748	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5749	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5750	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5752	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5753	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5754	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5755	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5756	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5757	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5758
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5759	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5760	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5761	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5762	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5763
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5764	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5765	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5766	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5767	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5768
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5769	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5770	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5771	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5772
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5773	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5774	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5775	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5776
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5777	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5778
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5779	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5780
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5781	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5782	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5783	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5784	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5785	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5786	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5787	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5788	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5789	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5790	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5791	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5792	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5793	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5794	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5795	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5796
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5797	help
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5798
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5799	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5800	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5801
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5802	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5803	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5804	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5805	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5806	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5807	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5808	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5809	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5811	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5812	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5813	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5814	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5815	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5816	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5818	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5819	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5820	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5822
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5823	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5824
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5825	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5831	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5832
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5833	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5834	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5842	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5845	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5853	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5854	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5855	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5856	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5859	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5876	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5893	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5910	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5927	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5944	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5947	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5954	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5958	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5961	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5964	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5971	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5978	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5986	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5995	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6000	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6008	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6010	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6014	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6023	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6030	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6032	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6033	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6034	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6035
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6036	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6037	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6038
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6039	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6040	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6041	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6042	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6043	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6044
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6045	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6046
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6047	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6048	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6049	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	6050	QDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQ@@@@@@@@@ADQDQ@QDQDQDQDADQDQDAD@@AD@@PDQDQD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6051	ADQDQDQDPDQDQDPD@@P@P@P@@DQDPDQDQDQDQ@DAADP@@@@@@@@@DA@DPADQDQDQDQDA@0Q@@@@@@@@@@@@3AD@3L3L3L2H#LCADPCL3L3L3H"L0ADQ@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6052	@@@@@@ADQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDPb') ; colorMapFromArray:#[0 0 0 194 194 194 255 255 0 105 133 190 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@??0A?? A?? C??@C??0G??8O??8_??8_??8_??0_?? _??@@@@@@@@@@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6053	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6054
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6055	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6056
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6057	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6058	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6059	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6060
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6061	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6062	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6064	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6065	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6066	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6068	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6069
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6070	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6071
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6072	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6073	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6074	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6075	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6076	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6077	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6078	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6079	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6080	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6081	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6082	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6083	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6084	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6085	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6086	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6087	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6090	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6091	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6092	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6093	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6094	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6095	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6099	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6122	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6126	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
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
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6142	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6143	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6163	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6173	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6177	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6184	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6210	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6214	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	#useIndex: true
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	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6247	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6251	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6271	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6275	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6279	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6293	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6299	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6301	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6303	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6305	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6307	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6309	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6310
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6311	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6312	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6314	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6319	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6326	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6327	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6330	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6331	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6332	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6333	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6334	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6335	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6336	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6337	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6338	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6340	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6341
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6342	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6343	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6344	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6345	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6347	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6348	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6349	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6351	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6352	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6353	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6354
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6355	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6356
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6357	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6358
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6359	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6360	Printer printCommand:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6361
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6362	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6363	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6364	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6365	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6366	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6367	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6368	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6369	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6370	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6371	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6372	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6373	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6374	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6375	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6376	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6377	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6378	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6379	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6380	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6381	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6382
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6383	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6385	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6386	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6387	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6388
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6389	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6390	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6391	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6392	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6393	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6394	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6395	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6396	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6397	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6398	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6399	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6400	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6401	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6402	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6403	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6404	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6406	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6408	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6409
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6410	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6411	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6412	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6413	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6414	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6415	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6417	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6418
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6419	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6420	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6421	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6422	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6423	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6424
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6425	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6426
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6427	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6428	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6429	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6430	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6431	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6432
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6433	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6434
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6435	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6436	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6437	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6438	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6439	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6440
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6441	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6442
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6443	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6444	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6445	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6446	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6447	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6448
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6449	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6451	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6452	landscape := Printer landscape asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6453	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6454	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6455	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6456	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6458	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6459
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6460	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6461	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6462	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6463	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6464	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6465	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6466
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6467	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6468
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6469	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6470	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6471	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6472	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6473	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6474	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6476	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6477	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6478	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6480	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6481	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6482
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6483	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6485	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6486	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6487	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6488	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6489	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6491	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6493	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6494	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6495	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6497	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6498	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6499
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6500	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6503	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6505	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6506	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6507
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6508	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6510	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6511	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6512	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6513	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6514	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6515	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6516
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6517	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6519	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6520	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6521	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6522	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6523	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6524	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6526	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6527	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6528
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6529	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6531	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6532	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6533	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6534	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6535	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6536	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6538	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6540	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6541	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6542	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6543	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6544	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6545	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6546	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6547	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6548
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6549	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6551	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6552	supportsColor := Printer supportsColor asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6553	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6555	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6557
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6558	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6560	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6561	topMargin := Printer topMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6562	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6564	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6565	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6566
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6567	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6572	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6573	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6576
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6577	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6579	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6580	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6581	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6589
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6590	printerTypeSelectionOrUnitListChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6594	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6595	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6596	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6597	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6598	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6599	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6602	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6603	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6604	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6605	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6606	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6608	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6611	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6617	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6618	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6619	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6620	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6624	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6627	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6629	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6630	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6631	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6632	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6633	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6634	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6636	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6639	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6640	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6641	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6643	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6644	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6645
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6646	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6647	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6648	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6649	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6650	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6652	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6655	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6656
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6657	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6658	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6659
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6660	postOpenAsSubcanvasWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6662	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6663	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6664	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6665
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6666	postOpenWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6668	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6669	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6670	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6672	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6674	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6675	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6676	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6677	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6678	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6679	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6680	commandList := #('lpr'
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6681	'lp'
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6682	) asOrderedCollection.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6683	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6684	(commandList includes:self printCommand value) not ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6685	commandList add:self printCommand value.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6686	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6687	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6688	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6689	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6690	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6691
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6692	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6695	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6696	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6697	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6698	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6699	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6700	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6701	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6702	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6703	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6704	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6705	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6706	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6707	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6708	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6709	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6710	Printer topMargin ~= ((UnitConverter convert:(self topMargin value asFloat) from:unit to:#inch) asFloat) or:[
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6711	Printer leftMargin ~= ((UnitConverter convert:(self leftMargin value asFloat) from:unit to:#inch) asFloat) or:[
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6712	Printer rightMargin ~= ((UnitConverter convert:(self rightMargin value asFloat) from:unit to:#inch) asFloat) or:[
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6713	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6714	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6715	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6716	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6717	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6718	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6719	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6720
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6721	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6722	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6723	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6724	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6725	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6726	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6727
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6728	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6730	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6731	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6732	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6733
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6734	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6735	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6736
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6737	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6738	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6739	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6740	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6741	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6742
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6743	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6744
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6745	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6746	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6747	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	6748	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6749	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6750	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	6751	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6752
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6753	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6755	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6756	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6757	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6758
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6759	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6760	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6761
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6762	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6763	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6764	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6765	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6766	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6767
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6768	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6769
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6770	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6771	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6772	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6773	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6774	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6775	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6776	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6777	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6778	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6779	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6780	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6781	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6782	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6783	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6784	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6785	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6786	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6787	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6788	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6789	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6790	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6791	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6792	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6793	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6794	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6795	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6796	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6797	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6798	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6799	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6800	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6801	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6802	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6803	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6804	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6805	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6806	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6807	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6808	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6809	#layout: #(#LayoutFrame 30 0.0 0 0 0 1.0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6810	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6811	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6812	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6813	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6814	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6815
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6816	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6817	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6818	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6819	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6820
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6821	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6822	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6823	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6824
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6825	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6826	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6827	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6828
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6829	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6830
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6831	basicSaveSettings
4574 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	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6834	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6835	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6836	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6837	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6838	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6839	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6840	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6841	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6842	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6843	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6844
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6845	help
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6846
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6847	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6848	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6849	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6850
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6851	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6852	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6853	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6854	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6855	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6856
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6857	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6858
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6859	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6860	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6861
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6862	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6863	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6864	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6865	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6866
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6867	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6868	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6869	"/ 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	6870	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6871	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6872	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6873	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6874	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6875
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6876	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6877	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6878
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6879	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6880	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6881	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6882	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6883
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6884	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6885	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6886	"/ 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	6887	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6888	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6889	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6890	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6891	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6892
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6893	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6894
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6895	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6896
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6897	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6898	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6899	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6900	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6901	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6902
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6903	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6904
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6905	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6906	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6907	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6908
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6909	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6910	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6911
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6912	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6913	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6914	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6915	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6916	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6917
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6918	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6919
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6920	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6921	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6922	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	6923	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	6924	''#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	6925	!!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	6926	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6927
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6928	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6929
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6930	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6931	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6932	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6933
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6934	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6935	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6936
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6937	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6938	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6939	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6940	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6941	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6942
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6943	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6944
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6945	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6946	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6947	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6948	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6949	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	#max: #(#Point 1024 768)
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	6954	#bounds: #(#Rectangle 16 52 616 602)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6955	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6956	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6967	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6968	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6969	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6970	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6971	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6972	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6973	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6976	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6987	#enableChannel: #hasRDoitServerClass
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6988	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6989	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6990	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6991	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6992
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6993	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6994	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6995	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6996	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6998	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7000	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7001	#(#LabelSpec
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7002	#label: 'Port/Path:'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7003	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7004	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7005	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7006	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7007	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7008	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7009	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7010	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7011	#enableChannel: #rDoitsEnabled
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7012	#model: #rDoitServerPortOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7013	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7014	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7015	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7016	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7017	)
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7018	#(#LabelSpec
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7019	#label: 'Port-number for tcp socket; path-string for unix domain socket.'
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7020	#name: 'Label3'
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7021	#layout: #(#LayoutFrame 150 0 28 0 596 0 50 0)
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7022	#translateLabel: true
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7023	#adjust: #left
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7024	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7025	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7026
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7027	)
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7028	#extent: #(#Point 600 72)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7030	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7031	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7033	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7034	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7035	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7036	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7037	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7038	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7039	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7040	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7041	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7042	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7044
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7045	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7054	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7056	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7058	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7059	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7060	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7061	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7062
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7063	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7064	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7065	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7066	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7067	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7068	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7069	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7070	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7071	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7072	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7073	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7074	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7075	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7076	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7077	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7078	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7079	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7081	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7084	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7085
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7086	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7087	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7088	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7089	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7090
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7091	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7092	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7093	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7094
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7095	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7096	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7097	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7098
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7099	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7101	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7102
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7103	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7104
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7105	RDoItServer defaultPortNumberOrPath:self rDoitServerPortOrPath value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7106	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7107	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7108	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7109	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7110	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7111	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7112	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7113	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7114	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7115	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7116	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7117	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7118	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7119	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7120	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7121	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7122	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7123	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7125	help
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7126
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7127	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7128	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7129	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7130
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7131	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7132	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7133	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7134	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7135	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7136	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	7137	self rDoitServerPortOrPath value:RDoItServer defaultPortNumberOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7138	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7139	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7140	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7141	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142	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	7143	self rDoitServerPortOrPath value:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7144	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7145	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7149
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7150	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7151
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7152	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7153	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7154	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7155	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7156	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7157	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7158
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7159	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7160
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7161	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7162	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7163	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7164	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7165	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7166	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7168	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7172	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7177	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7178
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7179	rDoitServerPortOrPath isNil ifTrue:[
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7180	rDoitServerPortOrPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7181	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	7182	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7183	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7186	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7187
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7188	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7190	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7191	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7192	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7193	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7194
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7197	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7198	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7199	self rDoitsEnabled value ifTrue:[
4840 4f74aeb5e4d2 autoload is understood by all classes (dummy if already loaded) Claus Gittinger <cg@exept.de> parents: 4831 diff changeset	7200	RDoItServer autoload.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7201	rDoitServerPortOrPath value isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7202	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7204	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7205	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7206
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7207	update:something with:aParameter from:changedObject
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7210	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7211	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7212
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7213	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7214	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7215
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7216	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7217
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7218	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7219	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7220
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7221	postOpenAsSubcanvasWith:aBuilder
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7222
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7223	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7224	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7225	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7226
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7227	postOpenWith:aBuilder
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7228
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7229	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7230	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7231	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7232
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7233	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7235	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7236
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7237	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7238	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7239
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7240	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7241	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7242	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7243
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7244	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7245
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7246	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7247	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7248	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7249	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7250	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7251	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7252	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7253	self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath]]])]]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7254	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7255	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7256	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7257	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7258
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7259	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7261	stcCompilationDemoStrings
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7262
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7263	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7264	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7265
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7266	stcCompilationFullVersionStrings
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7267
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7268	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7269	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7270
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7271	stcCompilationOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7272
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7273	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7274	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7277
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7278	defaultIcon
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7279	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7280	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7281
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7282	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7283	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7284
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7285	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7286	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7287	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7288	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7289	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7290
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7291	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7292
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7293	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7294	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7295	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B@@@B@@@@@@@AG.=1G.=0D*%PG.=0@@@@G??1FHH0E>7PE>70F^70G.71G.7PD^80G??0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@@@@@@@@@') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7296	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7297
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7298	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7299
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7300	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7301	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7302	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7303
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7305	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7306
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7307	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7308	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7309	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7310	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7311	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7312
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7314
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7315	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7316	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7317	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7318	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7319	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7320	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7321	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7322	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7323	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7324	#bounds: #(#Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7325	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7326	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7327	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7328	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7331	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7333	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7334	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7337	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7339	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7342	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7343	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7345	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7346	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7347	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7348	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7351	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7354	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7355	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7358	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7360	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7361	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7363	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7364	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7366	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7367	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7369	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7370	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7372	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7373	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7374	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7376	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7379	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7380	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7383	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7385	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7386	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7387	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7388	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7389	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7390
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7393	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7394	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7396	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7397	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7398	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7400	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7401	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7402	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7404	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7405	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7407	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7408	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7409	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7410	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7411	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7412	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7413	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7414	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7415	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7416	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7417	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7418
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7422	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7424	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7428	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7430	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7432	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7434	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7435	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7436	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7437	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7439	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7440	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7441	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7443	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7444	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7445	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7446
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7449	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7450	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7451	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7452	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7453	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7455	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7458	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7459	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7460	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7461	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7462	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7463	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7464	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7465	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7466	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7467	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7468	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7469	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7471	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7472	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7473	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7474
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7475	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7480	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7482	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7483	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7484	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7485	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7486	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7488	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7492	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7495	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7499	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7512	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7513	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7514	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7515	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7520	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7521	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7522	#model: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7523	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7524	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7525	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7527	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7528	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7529	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7530
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7531	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7533	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7534	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7536	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7537	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7540	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7541	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7542	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7543	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7544	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7548	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7549	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7550	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7551	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7552	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7553	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7555	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7556	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7557	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7558
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7562	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7563	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7564	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7565	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7570	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7572	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7576	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7579	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7580	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7581	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7582	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7583	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7584	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7585	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7586
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7590	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7592	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7593	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7594	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7596	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7597	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7598	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7604	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7605	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7606	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7607	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7609	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7611	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7614
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7617	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7618	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7620	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7623	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7624	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7625	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7626	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7632	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7633	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7634	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7635	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7636	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7637	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7638	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7639	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7640	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7641	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7642
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7643	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7644	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7645	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7646	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7647
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7648	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7649	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7650	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7651
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7652	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7653	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7654	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7655
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7656	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7657
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7658	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7659
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7660	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7661	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7662	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7663	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7664	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7665	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7666	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7667	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7668	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7669	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7670	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7671	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7672	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7673	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7674	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7675	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7676	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7677	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7678	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7679	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7680
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7681	help
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7682
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7683	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7684	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7685	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7686
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7687	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7688	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7689	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7690	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7691	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7692	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7693	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7694	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7695	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7696	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7697	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7698	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7699	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7700
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7701	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7702	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7703	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7704	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7705	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7706	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7707	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7708	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7709	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7710	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7711	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7712	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7713	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7714	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7715	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7716	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7717
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7718	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7719
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7720	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7721
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7722	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7723	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7724	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7725	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7726	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7727
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7728	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7729
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7730	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7731	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7732	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7733	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7734	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7735	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7736
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7737	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7738
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7741	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7743	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7744	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7745
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7746	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7747
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7748	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7749	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7751	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7752
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7753	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7754	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7755	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7756	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7757	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7758	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7759
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7760	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7761
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7762	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7763	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7764	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7765	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7766	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7767	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7768
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7769	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7770
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7771	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7772	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7773	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7774	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7775	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7776	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7777
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7778	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7779
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7780	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7781	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7782	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7783	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7784	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7785	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7786	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7787	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7788	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7789
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7790	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7791
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7792	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7793	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7794	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7795	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7796	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7797	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7798	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7799	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7800	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7801	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7802
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7803	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7804
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7805	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7806	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7807	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7808	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7809	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7810	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7811
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7812	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7813
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7814	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7815	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7816	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7817	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7818	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7819	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7820
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7821	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7822
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7823	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7824	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7825	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7826	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7827	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7828	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7829
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7830	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7831
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7832	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7833	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7834	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7835	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7836	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7837	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7838
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7839	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7840
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7841	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7842	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7843	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7844	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7845	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7846	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7847
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7848	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7849
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7850	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7851
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7852	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7853	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7854	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7855	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7864	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7867	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7868	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7869	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7870	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7871	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7872	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7873	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7874	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7875
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7876	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7877
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7878	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7879	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7880
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7881	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7882
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7883	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7884
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7885	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7886	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7887	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7888
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7889	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7890
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7891	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	7892	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7893	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7894	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7895	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7896	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7897	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7898	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7899	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7900	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7901	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7902	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7903	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7904	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7905	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7906	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7907	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7908	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7909	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7910	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7911	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7912	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7913	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7914	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7915	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7916	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7917	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7918	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7919	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7920	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7921	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7922	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7923	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7924	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7925	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7926
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7927	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7928
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7929	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7930	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7931	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7932
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7933	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7934	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7935
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7936	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7937	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7938	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7939	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7940	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7941
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7942	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7943
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7944	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7945	constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7946	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	7947	*****************************("H"H"H"H"J(@"EUUU%UUUU@@^*HUUUVUUUU@@]:(!!UUUYUUUT@A7"FY&Y&Y&X@]7^HUUUVUU@@]7\Z*(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7948	!!UUUYU@@]7\R"EUUU%T@A7]1JHY&Y&XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHY&Z#L3L6)D(!!&YL3L6Z$R*"EUUP3M&ZEQJ*HUU
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7949	RRY(UUUD**(")J***$R"J)J***QJHUUUZUUUUUDTQDQDQDQDQDR*************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@G??LG??<G??<G??<G??<G??<G??<G??<G??8G??0G??0G??0G??0G??0G??0G??0G??0G??0O??0@@@@') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7950	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7951
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7952	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7953
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7954	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7955	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7956	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7957
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7958	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7959	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7960
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7961	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7962	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7963	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7964	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7965	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7966
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7967	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7968
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7969	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7970	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7971	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7972	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7973	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7974	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7975	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7976	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7977	#max: #(#Point 1024 768)
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	7978	#bounds: #(#Rectangle 16 46 620 722)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7979	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7980	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7981	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7982	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7983	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7984	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7985	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7986	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7988	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7991	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7993	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7994	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7996	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7997	#horizontalSpace: 5
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	7998	#verticalSpace: 4
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7999	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8000	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8002	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8003	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8004	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8007	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8008	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8009	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8010	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8011	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8012	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8013	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8016	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8017	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8018	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8021	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8022	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8037	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8038	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8046	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8047	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8048	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8049	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8050	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8061	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8062	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8063	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8064	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8065
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8070	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8071	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8073	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8074	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8077	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8082	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	#(#ViewSpec
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8094	#name: 'Box15'
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8095	#component:
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8096	#(#SpecCollection
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8097	#collection: #(
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8098	#(#CheckBoxSpec
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8099	#label: 'Space after ''['''
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8100	#name: 'CheckBox9'
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8101	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8102	#model: #spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8103	#translateLabel: true
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8104	)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8105	#(#CheckBoxSpec
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8106	#label: 'Space before '']'''
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8107	#name: 'CheckBox10'
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8108	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8109	#model: #spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8110	#translateLabel: true
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8111	)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8112	)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8113
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8114	)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8115	#extent: #(#Point 594 22)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8116	)
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8117	#(#ViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8130	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8131	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8136	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8137
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8161	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8162	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8169	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8170	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8173	#model: #maxLengthForSingleLineBlocks
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8174	#type: #number
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8178	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8202	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8204	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8205	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8206	#extent: #(#Point 293 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8207	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8208	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8209
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8211	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8212	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8217	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8218	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8219
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8220	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8221	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8222	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8223	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8224
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8225	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8226	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8227	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8228
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8229	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8230	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8231	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8232
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8233	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8235	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8236
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8237	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8238	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8239	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8240	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8241	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8242	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8243	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8244	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8245	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8246	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8247	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8248	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8249	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8250	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8251	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8252	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8253	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8254	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8255	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8256	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8257	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8258	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8259	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8261	help
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8262
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8263	"/ self warn:'no help available here'.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8264	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8265	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8266
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8267	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8268	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8269	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8272	self emptyLineAfterTemporaries
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8273	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8274	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8275	self spaceAfterKeywordSelector
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8276	value:RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8277	self spaceAfterBlockStart value:RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8278	self spaceBeforeBlockEnd value:RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8280	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8281	self maxLengthForSingleLineBlocks
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8282	value:RBFormatter maxLengthForSingleLineBlocks.
c72e35116b13 instable state penk parents: 5040 diff changeset	8283	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8285	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8286	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8288
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8289	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8290
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8291	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8292	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8293	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8294	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8295
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8296	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8303	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8304	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8305	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8306	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8307	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8308	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8309	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8310
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8311	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8312	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8313	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8317	spaceAfterBlockStart:self spaceAfterBlockStart value;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8318	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8319	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8320	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8322
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8323	"/ tree := RBParser
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8324	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8325	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8326	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8327	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8328	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8329	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8330	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8331	"/ self editorText value:tree printString.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	8332	self editorText value:(RBFormatter format:(self class exampleText)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8335	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8336	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8337	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8338	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8339	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8340	spaceAfterBlockStart:s_spaceAfterBlockStart;
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8341	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8342	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8343	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8344	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8345	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8346	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8347
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8348	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8349
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8350	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8351	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8352	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8353	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8354	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8355	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8356	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8357	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8358	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8359	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8360	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8361	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8362	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8363	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8364
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8365	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8366
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8367	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8368	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8370	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8371	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8372	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8373	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8374	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8375	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8376	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8377	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8378	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8379	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8380	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8381
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8382	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8383
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8384	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8385
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8386	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8387	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8388	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8389	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8390	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8391	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8393	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8394
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8395	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8396	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8398	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8399	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8400	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8402	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8403
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8404	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8405	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8407	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8408	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8409	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8410
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8411	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8412
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8413	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8414	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8415	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8416	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8417	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8418
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8419	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8420
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8421	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8422	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8425	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8426	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8427
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8428	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8429
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8430	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8431	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8432	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8433	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8434	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8435	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8436
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8437	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8438
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8439	spaceAfterBlockStart isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8440	spaceAfterBlockStart := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8441	spaceAfterBlockStart addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8442	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8443	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8444	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8446	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8447
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8448	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8450	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8451	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8452	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8453	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8454
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8455	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8456
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8457	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8458	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8459	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8460	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8461	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8464	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8465
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8466	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8467	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8468	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8469	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8470	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8471	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8472
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8473	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8474
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8475	spaceBeforeBlockEnd isNil ifTrue:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8476	spaceBeforeBlockEnd := true asValue.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8477	spaceBeforeBlockEnd addDependent:self.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8478	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8479	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8480	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8482	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8483
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8484	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8485	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8486	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8487	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8488	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8489	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8490
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8491	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8492
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8493	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8494	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8495	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8496	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8497	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8498	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8499	changedObject == self spaceAfterReturnToken or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8500	changedObject == self spaceAfterBlockStart or:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8501	changedObject == self spaceBeforeBlockEnd or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8502	changedObject == self spaceAroundTemporaries or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8503	changedObject == self tabIndent]]]]]]]]]) ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8504	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8505	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8506	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	8507	].
c72e35116b13 instable state penk parents: 5040 diff changeset	8508	super
c72e35116b13 instable state penk parents: 5040 diff changeset	8509	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	8510	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	8511	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8512	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8513
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8515
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8516	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8517	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8518	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8519	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8520	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8522	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8523	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8524	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8525	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8526
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8527	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8528
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8529	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8530	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8531	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8532
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8533	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8535	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8536
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8537	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8538	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8539	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8540	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8541	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8542	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8543	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8544	self spaceAfterBlockStart value ~= RBFormatter spaceAfterBlockStart or:[
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8545	self spaceBeforeBlockEnd value ~= RBFormatter spaceBeforeBlockEnd or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8546	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8547	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8548	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	8549	]]]]]]]]]]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8550	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8551	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8552
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8553	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8554
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8555	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8556	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8557	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8558
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8559	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8560	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8561
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8562	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8563	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8565	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8566	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8567
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8568	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8569
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8571	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	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	8573	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8574	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8575	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8576	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8577	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8578	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	8579	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8580
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8582
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8583	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8584	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8585	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8587	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8588	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8590	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8591	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8592	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8593	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8594	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8596	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8598	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8599	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8600	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8601	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8602	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8603	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8604	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8605	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8606	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8607	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8608	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8609	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8610	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8611	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8612	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8613	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8614	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8615	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8616	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8617	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8618	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8619	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8620	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8621	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8622	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8623	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8624	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8625	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8626	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8627	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8628	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8629	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8630	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8631	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8632	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8633	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8634	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8635	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8636	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8637	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8638	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8639	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8640	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8641	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8642	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8643	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8644	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8645
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8646	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8647	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8648	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8649	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8650	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8651	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8652	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8653	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8654	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8655	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8656	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8657	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8658	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8659	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8660	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8661	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8662	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8663	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8664	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8665	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8666	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8668	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8669	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8670	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8671	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8672	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8673	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8674	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8675	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8676	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8677	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8678	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8679	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8680	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8681
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8682	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8683	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8684	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8685	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8686	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8687	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8688	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8689	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8690	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8691	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8692	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8693	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8694	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8695	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8696	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8697	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8698	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8699	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8700	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8701	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8703	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8704	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8705	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8706	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8707	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8708	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8709	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8710	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8711	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8712	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8713	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8714
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8715	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8716	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8717	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8718	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8719	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8720	#layout: #(#LayoutFrame 0 0.0 66 0 40 0.25 88 0)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8721	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8722	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8723	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8724	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8725	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8726	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8727	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8728	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8729	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8730	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8732	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8733	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8734	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8735	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8736	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8737	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8738	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8739	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8740	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8742	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8743	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8744	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8745	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8746	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8747	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8748	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8749	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8750	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8751	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8752	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8753	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8754	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8755	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8756	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8757	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8758	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8759	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8760	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8761	#layout: #(#LayoutFrame 44 0.25 232 0 -1 1.0 254 0)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8762	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8763	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8764	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8765	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8766	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8767	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8768	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8769	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8770	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8771	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8772	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8773	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8774	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8775	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8776	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8777	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8779	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8780	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8781	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8782	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8783	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8784	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8785	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8786	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8787	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8788	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8789	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8790	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8791	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8792	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8793	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8794	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8795	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8796	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8797	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8798	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8799	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8800	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8801	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8802	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8803
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8804	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8806	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8807
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8808	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8809	#extent: #(#Point 661 321)
4398 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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8812	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8813	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8814	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8815	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8816	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8817	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8818	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8819	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8820	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8821	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8822	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8823	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8824	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8825	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8826	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8827	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8828	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8829	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8830	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8831	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8832	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8833	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8834	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8835
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8836	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8837	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8838	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8839	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8840	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8841	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8842	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8843	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8844	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8845	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8846	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8847	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8848	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8849	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8850	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8851	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8852	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8853	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8854	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8855	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8856	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8857	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8858	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8859	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8860	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8861	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8862	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8863	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8864	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8865
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8866	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8867	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8868	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8869	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8870	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8871	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8872	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8873	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8874	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8875	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8876	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8877	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8878	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8879	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8880	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8881	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8882	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8883
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8884	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8885	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8886	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8887	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8888	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8889	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8890	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8891	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8892	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8893	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8894	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8895	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8896	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8897	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8898	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8899	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8900	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8901
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8902	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8903	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8904	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8905	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8906
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8907	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8908	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8909	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8910	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8913	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8914	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8916	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8917	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8918	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8919
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8920	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8921
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8922	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8924	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8925	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8926
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8927	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8928
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8929	addPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8930
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8931	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8932
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8933	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8934	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8935	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8936	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8937	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8938	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8939	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8940	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8941	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8942	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8943	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8944
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8945	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8946
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8947	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8948	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8949	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8950	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8951	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8952	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8953
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8954	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8955	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8956	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8957	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8958	(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	8959	(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	8960	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8961	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8962	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8963	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8964	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8965	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8966	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8967	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8968	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8969	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8970	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8971	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8972	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8973	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8974	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8975	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8976
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8977	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8978	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8979	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8980	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8981	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8982	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8983	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8984	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8985	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8986	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8987	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	8988	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8989	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	8990	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8991	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8992	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8993	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8994	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8995
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8996	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8997	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8998	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8999
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9000	condenseSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9001
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9002	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9003	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9004
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9005	flushSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9006
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9007	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9008	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9009
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9010	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9012	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9013	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9014	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9015
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9016	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9017	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9018	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9019	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9020	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9021	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9022	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9023	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9024	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9025	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9026	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9027	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9028	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9029	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9030	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9031	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9032	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9033	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9034	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9035	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9036	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9037	rootsPerModule notNil ifTrue:[
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9038	listOfModules := rootsPerModule keys asList.
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9039	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	9040	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9041	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9042	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9043
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9044	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9045
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9046	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9047
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9048	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9049	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9050	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9051	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9052	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9053	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9054	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9055
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9056	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9058	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9059	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9060	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9061	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9062	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9063	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9064	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9065	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9066
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9067	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9068
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9069	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9070
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9071	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9072	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9073	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9074	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9075	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9076
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9077	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9078
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9079	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9080	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9081	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9082	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9083	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9084	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9085
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9086	cvsBinDirectoryHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9087	cvsBinDirectoryHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9088	cvsBinDirectoryHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9089	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9090	^ cvsBinDirectoryHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9091	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9092
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9093	cvsIsSetup
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9094	cvsIsSetup isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9095	cvsIsSetup := true asValue.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9096	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9097	^ cvsIsSetup.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9098	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9100	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9101
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9102	cvsRootHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9103	cvsRootHolder := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9104	cvsRootHolder onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9105	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9106	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9107	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9108
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9109	cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9110
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9111	cvsRootPrototypeList isNil ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9112	OperatingSystem getDomainName = 'exept' ifFalse:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9113	cvsRootPrototypeList := #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9114	'host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9115	':pserver:user@host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9116	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9117	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9118	] ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9119	cvsRootPrototypeList := #(
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9120	'/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9121	'exept:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9122	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9123	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9124	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9125
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9126	OperatingSystem isUNIXlike ifTrue:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9127	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9128	'/cvs/stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9131	OperatingSystem isMSDOSlike ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9132	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9133	':local:c:\cvs\stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9134	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9135	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9136	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9137	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9138	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9139	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9140	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9141	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9143	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9144
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9145	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9146	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9147	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9148	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9149	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9150	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9151
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9152	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9154	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9155	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9156	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9157	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9158	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9159	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9160
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9161	perModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9162	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9163
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9164	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9165	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9166	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9167	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9168
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9169	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9170	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9171	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9172	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9173	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9174	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9175	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9176	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9177
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9178	perModuleRootModule
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9179	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9180
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9181	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9182	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9183	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9184	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9185
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9186	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9187	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9188	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9189	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9190	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9191	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9192	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9193	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9194
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9195	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9196
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9197	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9198	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9199	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9200	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9201	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9202
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9203	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9204
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9205	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9206	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9207	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9208	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9209	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9210	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9211	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9212	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9213
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9214	sourceCacheDir
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9215	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9216	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9217
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9218	useManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9219	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9220	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9221
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9222	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9223
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9224	selectedPerModuleRootChanged
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9225
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9226	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9227
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9228	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9229	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9230	module isNil ifTrue:[ ^ self].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9231	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9232	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9233	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9234	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9235	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9236
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9237	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9238	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9239
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9240	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9241
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9242	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9243	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9244
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9245	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9246	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9247	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9248	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9249	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9250	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9251	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9252	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9253	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9254	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9255	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9256	(fn exists
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9257	and:[fn isDirectory
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9258	and:[fn isReadable
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9259	and:[fn isWritable]]]) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9260	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9261	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9262	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9263	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9264	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9265	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9266
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9267	update:something with:aParameter from:changedObject
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9268	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9269	self sourceDirChanged.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9270	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9271	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9272	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9273	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9274	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9275	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9276	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9277	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9278	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9279	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9280	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9281	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9282
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9283	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9284
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9285	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9286	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9287
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9288	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9289	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9290
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9291	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9292	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9293
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9294	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9295	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9296
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9297	SourceCodeManager == CVSSourceCodeManager ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9298	rootsPerModule declareAllFrom:(SourceCodeManager repositoryNamesPerModule).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9299	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9300
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9301	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9304	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9305	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9306
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9307	postOpenAsSubcanvasWith:aBuilder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9308
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9309	self postOpen.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9310	^ super postOpenAsSubcanvasWith:aBuilder
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9311	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9312
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9313	postOpenWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9315	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9316	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9317	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9318
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9319	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9320
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9321	hasManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9322	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9326	hasUnsavedChanges
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9327	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil))
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9328	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9329
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9330	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9331	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9333	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9334	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9335	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9336
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9337	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9338	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9339
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9340	(CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9341	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9342
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9343	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9344	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9345
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9346	((Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9347	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9348
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9349	(self sourceCacheDir value ~= AbstractSourceCodeManager cacheDirectoryName)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9350	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9351
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9352	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9355	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9357	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9371	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9372
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9373	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9374	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9375	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9376
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9377	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9378	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9379
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9380	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9381	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9382	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9383	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9384	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9385
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9386	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9387
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9388	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9389	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9390	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	9391	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9392	@@@@@@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	9393	@ 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	9394	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	9395	@ 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	9396	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	9397	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9398
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9399	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9400
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9401	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9402	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9405	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9406	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9407
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9408	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9409	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9410	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9411	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9412	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9414	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9415
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9416	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9417	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9419	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9420	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9421	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9422	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424	#max: #(#Point 1024 768)
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9425	#bounds: #(#Rectangle 16 42 491 573)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9432	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9433	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9434	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9435	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9436	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9437	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9438	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9439	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9440	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9441	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9442	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9443	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9444	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9445	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9446	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9447	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9448	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9449	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9450	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9451	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9452	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9453	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9454	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9455	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9456	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9457	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9458	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9459	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9460	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9461	#hasVerticalScrollBar: true
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9462	#doubleClickSelector: #doubleClickAt:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9463	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9464	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9465	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9466	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9468	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9470	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9472	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9473
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9474	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9475
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9476	\| newStyle transcript\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9477
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9478	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9479
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9480	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9481	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9482	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9483	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9484	DebugView newDebugger.
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9485	transcript := Transcript current.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9486	transcript notNil ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9487	\| app\|
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9488	app := transcript topView application.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9489	(app respondsTo:#reopenLauncher) ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9490	app reopenLauncher.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9491	].
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9492	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9493	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9494
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9495	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9496
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9497	self saveSettings.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9498	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9499
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9500	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9504	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9505
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9506	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9507	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9512	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9513
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9514	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9515	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9516	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9517	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9518	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9519
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9520	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9521
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9522	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9523	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9524	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9525	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9526	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9527
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9528	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9537	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9538
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9539	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9540	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9541	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9542	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9543	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9544	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9545
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9546	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9547
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9548	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9549	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9550	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9551	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9552	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9557	changeInfoLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9571	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9574	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9577	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9581	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	9582	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	9583	].
c72e35116b13 instable state penk parents: 5040 diff changeset	9584	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9585	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9586	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9587	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9590	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9597	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9598	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9601	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9602	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9605	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9612	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9614	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9615	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9618	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9621	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9623	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9625	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9626	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9627	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9628
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9629	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9631	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9632
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9633	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9634
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9635	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9636	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9637	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9639	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9640	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9641	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9642	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9643	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9644	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9645	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9646	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9647	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	9648	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9649	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9650	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9651
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9652	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9653	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9654	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9655	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9656	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9657	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9658
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9659	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9660	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9661	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9663	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9664	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9665	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9667	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9668
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9669	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9671	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9672	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9673
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9674	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9676	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9685	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	#reverse
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9698	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9699
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9701	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9702	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9719	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9722	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9726	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9733	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9743	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	Icon flushCachedIcons
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9760	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	9761	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9762	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9763	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	9764	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9768	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9786	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9787	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9805	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9817	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9869	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9878	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9879
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9883	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9884	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9886	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9887	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9889	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9890	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9891	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9892	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9893	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9894	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9895	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9897	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9898	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9899	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9900	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9901	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9902	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9903
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9904	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9905	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9906	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9907	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9909	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9910	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9914	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9915	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9919	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9920	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9922	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9923	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9924	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9925	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9926	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9927	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9928	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9929
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9930	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9931	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9933	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9934
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9935	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9936	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9937	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9938	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9943
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9947
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9948	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9950	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9951
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9952	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9953	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9954	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9955	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9956
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9957	formattingConfiguration
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9958	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9959
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9960	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9964	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9965
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9966	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9967	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9968
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9969	help
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9970
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9971	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9972	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9973	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9975	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9976	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9977
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9978	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9979	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9980	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9981	current) declareAllFrom:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9982	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9984	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9987	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9988	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9989	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9990	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9994	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9995	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9996
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9997	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9999	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10003	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10004	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10007	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10009	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10012	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	10013	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	10014	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10015	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10016	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10017	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10018
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10021	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10023	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10025	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10026	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10028
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10029	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10030
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10031	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10032	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10033	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10034	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10035	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10036	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10037
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10038	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10039
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10040	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10041	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10042	"/ 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	10043	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10049	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10050
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10051	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10053	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10056
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10057	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10060	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10061	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10063	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10064	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10065
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10066	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10069	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10070	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10071	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10076	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10077	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10084	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10085	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10086	"/ 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	10087	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10093	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10102
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10103	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10104	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10105
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10106	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10107	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10108	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10109	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10110
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10111	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10112	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10113	"/ 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	10114	"/ syntaxEmphasisList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10115	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10116	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10117	^ syntaxEmphasisList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10118	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10119
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10120	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10122	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10123	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10131	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10132	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10137	syntaxColorChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10138	currentUserPrefs at:(self syntaxColorSelector value)
c72e35116b13 instable state penk parents: 5040 diff changeset	10139	put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10140	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10141	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10143
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10144	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10145
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10154	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10156
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10158	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10160	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10161	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10162
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10163	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10166	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10170	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10174	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10175	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10178	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10179	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10180
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10182	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10183
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10186	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10187	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10188	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10189
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10191	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10192	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10193	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10194	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10196	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10202	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10203	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10204	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10206	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10208	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10209	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	10210	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	10211	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10212	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10213	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	10214	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	10215	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10216	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10217	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	10218	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	10219	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10220	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10221	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	10222	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	10223	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10224	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10225	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10226	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10227	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10228	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10229	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10230	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10231	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10232	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10233
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10234	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10235
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10236	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10237	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10238	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10239	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10240	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10241
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10242	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10243
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10244	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10245
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10246	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10247
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10248	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10249	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10250	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10251	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10252	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10253	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10254	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10255	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10256	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10257	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10258	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10259	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10260	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10261	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10262	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10263	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10264
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10265	syntaxColorSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10266
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10267	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10268	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10269
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10270	syntaxColorSelectorForElement:aSyntaxElement
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10271
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10272	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10273	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10274
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10275	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10276
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10277	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10278	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10279
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10280	syntaxEmphasisSelectorForElement:anEmElement
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10281
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10282	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10283	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10284
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10285	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10286
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10287	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10288	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10289	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10290
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10291	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10292	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10293
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10294	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10295	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10296	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10297	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10298	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10299
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10300	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10301
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10302	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10303	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10304	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	10305	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10306	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10307	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10308	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10309	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	10310	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	10311	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10312
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10313	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10314
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10315	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10316	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10317	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10318
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10319	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10320	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10321
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10322	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10323	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10324	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10325	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10326	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10328	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10330	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10331	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10332	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10333	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10334	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10335	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10337	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10338	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10339	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10340	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10341	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10342	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10343	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10344	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10345	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10346	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10347	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10348	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10351	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10352	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10353	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10354	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10355	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10356	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10357	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10358	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10359	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10360	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10361	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10362	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10363	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10366	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10367	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10368	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10369	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10370	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10371	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10372	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10374	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10375	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10376	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10377	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10378	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10379	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10380	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10381	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10382	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10383	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10384	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10385	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10386	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10387	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10388	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10389	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10390	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10391	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10392	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10393	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10394	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10395	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10396	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10397	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10398	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10399	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10400
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10401	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10402	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10403	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10404	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10405	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10406	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10407	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10408	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10409	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10410	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10411	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10412	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10413	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10414	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10415	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10416	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10417	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10418	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10419	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10420	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10421	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10422	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10423	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10424	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10425	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10426	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10427	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10428	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10429	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10430	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10431	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10432	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10433	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10434	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10435	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10436	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10437	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10438	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10439	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10440	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10441	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10442	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10443	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10444
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10445	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10447	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10448	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10449
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10450	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10452	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10453	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10454
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	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10463	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10464
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10465	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10466
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10467	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10468	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10469	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10470	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10471	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10472	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10473	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10474	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10475
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10476	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10478	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10479	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10480
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10481	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10482	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10483	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10484	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10485	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10488	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10489	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10490	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10492	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10493
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10494	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10496	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10497	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10498	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10499	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10500	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10501	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10502
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10503	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10505	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10506	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10507	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10508	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10509	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10510	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10511
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10512	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10514	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10515	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10516	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10517	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10518	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10519	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10520
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10521	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10522
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10523	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10524	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10525	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10526	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10527	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10528	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10529
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10530	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10531
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10532	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10533	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10534	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10535	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10536	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10537	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10538
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10539	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10540
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10541	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10542	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10543	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10544	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10545	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10546	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10548	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10550	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10551	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10552	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10554	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10555	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10557	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10559	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10561	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10563	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10567	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10569	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10570	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10572	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10573	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10574	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10575	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10576	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10577
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10578	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10579
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10580	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10581	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10582	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10583
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10584	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10585	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10586
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10587	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10588	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10589	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10590	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10591	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10592
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10593	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10594
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10595	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10596	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10597	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	10598	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10599	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	10600	@@@@@@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	10601	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10602
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10603	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10604
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10605	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10606	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10607	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10609	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10610	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10612	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10613	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10614	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10615	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10616	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10618	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10620	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10621	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10622	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10623	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10624	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10625	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10626	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10627	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10628	#max: #(#Point 1024 768)
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10629	#bounds: #(#Rectangle 16 46 511 517)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10630	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10631	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10632	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10633	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10634	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10635	#name: 'VerticalPanel2'
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10636	#layout: #(#LayoutFrame 0 0 0 0 358 0 301 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10637	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10638	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10639	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10640	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10641	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10642	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10643	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10644	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10645	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10646	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10647	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10648	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10649	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10650	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10651	#(#CheckBoxSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10652	#label: 'Use the New File Browser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10653	#name: 'NewFileBrowser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10654	#model: #useNewFileBrowser
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10655	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10656	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10657	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10658	#(#CheckBoxSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10659	#label: 'Use the New VersionDiff Browser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10660	#name: 'VersionDiffBrowser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10661	#model: #useNewVersionDiffBrowser
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10662	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10663	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10664	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10665	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10666	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10667	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10668	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10669	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10670	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10671	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10672	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10673	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10674	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10675	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10676	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10677	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10678	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10679	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10680	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10681	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10682	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10683	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10684	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10685	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10686	#(#CheckBoxSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10687	#label: 'Use the New Changes Browser (not yet recommended)'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10688	#name: 'ChangesBrowser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10689	#model: #useNewChangesBrowser
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10690	#translateLabel: true
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10691	#extent: #(#Point 489 25)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10692	)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10693	#(#CheckBoxSpec
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10694	#label: 'Use Hierarchical Inspector (not yet recommended)'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10695	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10696	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10697	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10698	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10699	)
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10700	#(#ViewSpec
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10701	#name: 'Box2'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10702	#extent: #(#Point 205 20)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10703	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10704	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10705	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10706	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10707	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10708	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10709	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10710	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10711	#(#ViewSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10712	#name: 'Box3'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10713	#extent: #(#Point 204 19)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10714	)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10715	#(#ViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10716	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10717	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10718	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10719	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10720	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10721	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10722	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10723	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10724	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10725	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10726	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10727	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10728	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10729	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10730	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10731	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10732	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10733	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10734	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10735	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10736	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10737	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10738	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10739
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10740	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10741	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10742	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10743	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10745	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10746	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10747	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10748	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10750	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10751	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10752	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10754	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10755
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10756	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10757
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10758	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10759
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10760	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10761	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10762	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10763	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10764	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10765	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10766	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10767	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10768	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10769	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10770	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10771	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10772	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10773	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10774	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10775	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10776	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10777	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10778	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10779	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10780	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10781	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10782	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10783	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10784	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10785	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10786	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10787	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10788	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10789	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10790	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10791	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10792	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10793	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10794	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10795	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10796	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10797	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10798	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10799	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10800	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10801	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10802	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10803
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10804	help
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10805
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10806	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10807	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10808
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10809	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10810	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10811	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10812	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10813	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10814	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10815	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10816	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10817	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10818	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10819	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10820	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10821	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10822	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10823	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10824	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10825
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10826	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10827
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10828	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10829
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10830	showClockInLauncher isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10831	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10832	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10833	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10834	^ showClockInLauncher.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10835	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10836
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10837	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10838
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10839	transcriptBufferSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10840	transcriptBufferSize := Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10841	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10842	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10843	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10844	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10845
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10846	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10847
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10848	useNewChangesBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10849	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10850	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10851	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10852	^ useNewChangesBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10853	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10854
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10855	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10856
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10857	useNewFileBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10858	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10859	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10860	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10861	^ useNewFileBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10862	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10863
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10864	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10865
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10866	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10867	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10868	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10869	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10870	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10871	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10872
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10873	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10874
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10875	useNewInspector isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10876	useNewInspector := currentUserPrefs useNewInspector asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10877	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10878	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10879	^ useNewInspector.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10880	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10881
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10882	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10883
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10884	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10885	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10886	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10887	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10888	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10889	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10890
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10891	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10892
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10893	useNewSystemBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10894	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10895	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10896	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10897	^ useNewSystemBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10898	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10899
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10900	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10901
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10902	useNewVersionDiffBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10903	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10904	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10905	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10906	^ useNewVersionDiffBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10907	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10908
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10909	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10910
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10911	useProcessMonitorV2 isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10912	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10913	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10914	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10915	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10916	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10918	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10919
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10920	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10922	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10923	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10924	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10925	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10926	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10927	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10928	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10929	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10930	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10931	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10932	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10933
4226 44e2f83cc526 initial checkin penk parents: diff changeset	10934	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	10935
44e2f83cc526 initial checkin penk parents: diff changeset	10936	version
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	10937	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.90 2003-08-14 16:30:14 cg Exp $'
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	10938	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 14 Aug 2003 18:30:14 +0200
changeset 5076	c5d65fffae16
parent 5072	9502dd5cad9b
child 5078	9fafc6b058bc
permissions	-rw-r--r--