hg/stx-libtool: AbstractSettingsApplication.st@cd943991daad (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
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	4	instanceVariableNames:'settingsString'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	5	classVariableNames:''
44e2f83cc526 initial checkin penk parents: diff changeset	6	poolDictionaries:''
44e2f83cc526 initial checkin penk parents: diff changeset	7	category:'Interface-Smalltalk'
44e2f83cc526 initial checkin penk parents: diff changeset	8	!
44e2f83cc526 initial checkin penk parents: diff changeset	9
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11	instanceVariableNames:'modifiedChannel allowQualifiedNames warnDollar warnOldStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12	fullDebugSupport warnCommonMistakes warnUnderscore keepSource
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	13	constantFolding warnCompatibility constantFoldingOptions warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14	warnSTX allowDollar allowReservedWordsAsSelectors immutableArrays
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	16	warnUnusedVars allowSqueakExtensions justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	17	canLoadBinaries constantFoldingSelection enableUnderscore
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18	enableDollar'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	22	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	23
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	24	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	25	instanceVariableNames:'modifiedChannel showErrorNotifier showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	26	allowSendMailFromDebugger currentUserPrefs'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	27	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	28	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	29	privateIn:AbstractSettingsApplication
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	33	instanceVariableNames:'modifiedChannel isColorMonitor useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	34	useFixPalette sizeY clipEncodingListSelection sizeX monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	35	ditherList clipEncodingList ditherListSelection deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	36	monitorSelection useFixPaletteLabel visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	37	ditherSymsNotNil useFixGrayPalette sizeInfos screen ditherStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	38	ditherSyms screenDepthVisualLabelHolder'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	39	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	40	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	41	privateIn:AbstractSettingsApplication
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	45	instanceVariableNames:'modifiedChannel st80EditingMode tabsIs4 st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	46	searchDialogIsModal startTextDragWithControl'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	47	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	48	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	49	privateIn:AbstractSettingsApplication
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	53	instanceVariableNames:'modifiedChannel filter allOfThem labelDef buttonDef listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	54	menuDef textDef allFontLabelHolder buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	55	textFontLabelHolder labelsFontLabelHolder listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	56	menusFontLabelHolder allLabel buttonsLabel textLabel labelLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	57	listsLabel menuLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	58	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	59	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	60	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	61	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	62
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	63	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	64	instanceVariableNames:'modifiedChannel st80EditingMode tabsIs4 st80DoubleClickSelectMode
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	65	searchDialogIsModal startTextDragWithControl catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	66	fullHistoryUpdate historyLines keepSourceSelection keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	67	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	68	classVariableNames:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	69	poolDictionaries:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	70	privateIn:AbstractSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	71	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	72
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	73	AbstractSettingsApplication subclass:#HTTPServerSettingsAppl
933cd54deefe checkin from browser penk parents: 4292 diff changeset	74	instanceVariableNames:'modifiedChannel httpServerFileRoot httpServerLogFile swikiRoot
933cd54deefe checkin from browser penk parents: 4292 diff changeset	75	swikiRootEnabled httpServerRunning httpServerPort allowEmbedded
933cd54deefe checkin from browser penk parents: 4292 diff changeset	76	soapEnabled swikiEnabled hasHTTPServer httpServerHomeURL'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	77	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	78	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	79	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	80	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	81
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	82	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	83	instanceVariableNames:'modifiedChannel selectedRawKey macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	84	selectedFunctionKey labelTextHolder functionKeyList rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	85	mappings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	86	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	87	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	88	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	89	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	90
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	91	AbstractSettingsApplication subclass:#LanguageSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	92	instanceVariableNames:'modifiedChannel languageHolder languageList listOfLanguages
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93	translatedLanguages noticeLabelHolder currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94	currentLanguageLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	96	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	97	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	98	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	99
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	100	AbstractSettingsApplication subclass:#MemorySettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	101	instanceVariableNames:'modifiedChannel newSpaceSize maxOldSpace fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102	warningLabelHolder codeTrigger codeLimit oldIncr compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103	igcFreeLimit igcLimit igcFreeAmount stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	104	supportsJustInTimeCompilation'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	105	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	106	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	107	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	108	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	109
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	110	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
933cd54deefe checkin from browser penk parents: 4292 diff changeset	111	instanceVariableNames:'modifiedChannel remoteBrowsingEnabled windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	112	windowMigrationPassword windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	113	enablePasswordCheck'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	114	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	115	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	116	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	117	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	118
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	119	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120	instanceVariableNames:'modifiedChannel returnFocus focusFollowsMouse beepEnabled
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	121	takeFocus activateOnClick shadows opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	122	formatHostNameinWindowLabels opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	123	hostNameInLabelHolder showAccelerators currentUserPrefs
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	124	newWindowLabelFormat formatHostNameWindowLabel'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	125	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	126	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	127	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	128	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	129
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	130	AbstractSettingsApplication subclass:#OsiSettingsAppl
933cd54deefe checkin from browser penk parents: 4292 diff changeset	131	instanceVariableNames:'modifiedChannel osiACSEConnectionLogging osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	132	osiCMISEErrorLogging osiACSEErrorLogging osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	133	osiCMISEPresent osiCMISEMessageLogging osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	134	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	135	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	136	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	137	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	138	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	139
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	140	AbstractSettingsApplication subclass:#PrinterSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	141	instanceVariableNames:'modifiedChannel selectedUnit supportsColor topMargin rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	142	bottomMargin landscape pageFormatList pageFormat unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	143	leftMargin possiblePrinters printerType printerTypeSelection
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	144	printCommandList commandList printCommand enableFormat
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	145	enablelandscape enableMargins enableColorBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	146	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	147	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	148	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	149	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	150
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	151	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	152	instanceVariableNames:'modifiedChannel dynamicPrios preemptive'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	153	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	154	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	155	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	156	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	157
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	158	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
933cd54deefe checkin from browser penk parents: 4292 diff changeset	159	instanceVariableNames:'modifiedChannel rDoitLogging rDoitsEnabled rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	160	hasRDoitServer rDoitErrorDebugging rDoitServerPort'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	161	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	162	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	163	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	164	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	165
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	166	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	167	instanceVariableNames:'modifiedChannel cc ccOptions stcIncludes linkCommand stc linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	168	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	169	stcCompilationSelection stcCompilationList'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	170	classVariableNames:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	171	poolDictionaries:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	172	privateIn:AbstractSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	173	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	174
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	175	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	176	instanceVariableNames:'modifiedChannel spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	177	emptyLineAfterTemporaries tabIndent autoFormat cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	178	editorText maxLengthForSingleLineBlocks blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	179	spaceAfterReturnToken spaceAroundTemporaries currentUserPrefs
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	180	oldUserPreferences reformatLocked'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	181	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	182	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	183	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	184	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	185
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	186	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	187	instanceVariableNames:'modifiedChannel sourceCacheDir useManager condenseSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	188	syntaxColorConfiguration setupSourceCodeManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	189	checkClassesWhenCheckingIn formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	190	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	191	manager repository currentUserPrefs listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	192	cvsRootPrototypeList addPerModuleRoot removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	193	perModuleRootModule acceptChannel removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	194	perModuleRoot cvsRootHolder selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	195	cvsBinDirectoryHolder rootsPerModule'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	196	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	197	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	198	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	199	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	201	AbstractSettingsApplication subclass:#StyleSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	202	instanceVariableNames:'modifiedChannel showStandardStylesOnly styleList selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	203	styleDirectoryContents infoLabelHolder noticeLabelHolder'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	204	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	205	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	206	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	207	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	208
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	209	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	210	instanceVariableNames:'modifiedChannel coloredText syntaxColor syntaxColors resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	211	resetListSelection fullSelectorCheck syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	212	currentUserPrefs oldUserPreferences syntaxFontSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	213	syntaxFonts syntaxElementList syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	214	syntaxEmphasisList syntaxEmphasisSelection emphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	215	resetListDictionary'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	216	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	217	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	218	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	219	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	220
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	221	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	222	instanceVariableNames:'modifiedChannel classInfos vmInfo vmErrors displayErrors logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	223	updChanges changeFileName'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	224	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	225	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	226	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	227	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	228
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229	AbstractSettingsApplication subclass:#ToolsSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	230	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	231	showClockInLauncher useNewChangesBrowser useNewFileBrowser
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	232	useNewSystemBrowser currentUserPrefs modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	233	useNewFileDialog useNewSettingsApplication'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	234	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	235	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	236	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	237	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	238
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	239	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	240
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	241	windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	242
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	243	self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	244	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	245
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	246	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	247
68504047f229 * empty log message * penk parents: 4286 diff changeset	248	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	249
68504047f229 * empty log message * penk parents: 4286 diff changeset	250	^ AbstractLauncherApplication classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	251	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	252
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	253	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	254
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	255	saveRequest
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	256	\| result\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	257
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	258	(self hasUnsavedChanges) ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	259	result := self confirmWithCancel:(resources string:'Save changed ', settingsString, ' ?').
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	260	result isNil ifTrue:[ ^ false].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	261	result ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	262	self saveSettings.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	263	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	264	self loadRequest.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	265	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	266	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	267	^ true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	268	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	269
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	270	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	271
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	272	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	273
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	274	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	275	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	276
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	277	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	278
289972d3e455 * empty log message * penk parents: 4319 diff changeset	279	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	280	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	281	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	282	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	283
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	284	initialize
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	285
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	286	settingsString := (UISpecification from:(self class windowSpec)) window label.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	287	super initialize
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	288	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	289
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	290	loadRequest
f196089fe934 next stage for settings penk parents: 4228 diff changeset	291
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	292	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	293	"/ self modifiedChannel value:false.
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	294	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	295
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	296	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	297
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	298	self subclassResponsibility.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	299	! !
44e2f83cc526 initial checkin penk parents: diff changeset	300
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	301	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	303	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	305	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	306	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	307
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	308	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	309
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	310	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	311	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	312
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	313	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	314
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	315	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	316	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	317	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	318
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	319	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	320	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	321
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	322	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	323	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	324	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	325	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	326	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	327
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	328	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	329
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	330	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	331	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	332	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	333	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	334	@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	335	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PD@@PD@@@H@@@D@@@@@@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@@DA@P@A@P@A@P@@@ @@@P@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	336	@@@A@P@A@PDA@PD@@PD@@@H@@@DA@PDA@PD@@PDA@PDA@@DA@@@B@@@A@@@@@@DA@@DA@PDA@P@A@P@@@ @@@PDA@PDA@P@A@PD@@PD@@PD@@@H@@@D@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	337	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	338	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	339	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	340
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	341	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	343	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	344	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	345	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	347	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	348	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	350	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	351	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	352	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	353	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	354	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	358	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	359	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	360	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	361	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	362	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	363	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	364	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	365	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	366	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	367	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	368	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	369	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	370	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	371	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	372	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	373	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	374	#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	375	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	376	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	377	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	378	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	379	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	380	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	381	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	382	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	383	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	384	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	385	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	386	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	387	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	388	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	389	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	390	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	391	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	392	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	393	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	394	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	395	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	396	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	397	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	398	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	399	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	400	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	401	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	402	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	403	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	404	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	405	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	406	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	407	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	408	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	409	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	410	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	412	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	413	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	414	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	415	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	416	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	417	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	418	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	419	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	420	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	421	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	422	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	423	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	424	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	425	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	426	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	427	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	428	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	429	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	#extent: #(#Point 600 22)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	533	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	534	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	535	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	536	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	537	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	538	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	539	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	540	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	541	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	542	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	543	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	544	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	545	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	546	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	547	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	548	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	549	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	550	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	551	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	552	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	553	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	554	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	555	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	556	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	557	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	558	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	559	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	560	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	561	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	562	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	563	#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	564	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	565	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	566	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	567	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	568	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	569	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	570	#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	571	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	572	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	573	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	574	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	575	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	576	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	577
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	578	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	579	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	580	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	581	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	582
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	583	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	584	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	585	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	587	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	588	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	589	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	590
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	591	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	593	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	595	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	596	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	598	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	600	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	601	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	603	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	605	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	606	self allowDolphinExtensions value:(Compiler allowDolphinExtensions ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	607	self allowOldStyleAssignment value:(Compiler allowOldStyleAssignment ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	608	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	609	self allowReservedWordsAsSelectors value:(Compiler allowReservedWordsAsSelectors ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	610	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	611	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	612	self constantFoldingSelection value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	613	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	614	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	615	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	616	self fullDebugSupport value:(Compiler lineNumberInfo == #full).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	618	self immutableArrays value:(Compiler arraysAreImmutable ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	619	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	620	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	621	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	622	self justInTimeCompilation value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	624	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	625	self warnCompatibility value:(Compiler warnPossibleIncompatibilities ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	626	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	627	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	628	self warnSTX value:(Compiler warnSTXSpecials ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	629	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	630	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	631	self warnings value:(Compiler warnings ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	632	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	633	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	635	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	637	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	638	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	639	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	640	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	641	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	649	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	650	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	651	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	653	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	668	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	669	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	671	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	674	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	676	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	677	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	678
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	679	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	681	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	683	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	684	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	685	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	686	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	687	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	688	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	689	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	691	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	693	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	694	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	695	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	696	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	697	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	698	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	700	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	702	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	703	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	704	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	706	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	707	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	709	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	711	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	712	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	713	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	714	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	715	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	716	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	717
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	718	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	720	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	722	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	725	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	727	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	^ modifiedChannel
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	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	858	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	867	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	916	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	changedObject == self warnings ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	self warnings value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	941	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	945	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	949	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	973	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	981	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	982
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	983	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	984	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	985
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	986	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	987	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	988
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	989	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	990
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	991	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	992	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	993	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	994
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	995	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	996	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	997
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	998	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	999	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1000	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1001	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1002	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1003
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1004	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1005
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1006	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1007	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1008	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1009	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1010	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1011	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1012	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1013	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1014	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1015	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1016	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1017	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1018	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022	#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	1023	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1026	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1027	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1051	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	)
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	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	evaluateModified
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	self modifiedChannel value:(self hasUnsavedChanges).
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1115	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1116	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1117
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	loadRequest
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	self showErrorNotifier value:(Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1123	self modifiedChannel value:false.
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	saveSettings
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	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1129	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1130	self showErrorNotifier value ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1131	Exception emergencyHandler:nil
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1132	] ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1133	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
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	DebugView defaultVerboseBacktrace:self showVerboseStack value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1136	self modifiedChannel value:false.
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
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	allowSendMailFromDebugger
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	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1145	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1146	allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1147	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1148	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1149	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1150
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1151	modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1153	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1154	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1155	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1156	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1159	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1160
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	showErrorNotifier isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162	showErrorNotifier := (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1163	showErrorNotifier onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1164	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1165	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1166	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1167
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1168	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	showVerboseStack onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175	! !
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182	"stub code automatically generated - please change as required"
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	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'initialization & release'!
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	initialize
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	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196	currentUserPrefs := UserPreferences current.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1197	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1198	super initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1200
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1202
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1203	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1204
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1205	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1206	self showErrorNotifier value ~= (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1207	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1208	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1209	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1210	)
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1235	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1237	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1238	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1240	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1241
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1242	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1243	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1244
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1245	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1254	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1256	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1257	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1258	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1259
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1260	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1262	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1263	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1264	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1265	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1266	@B (JB (JB (JB (JB (JB\''@@@@@@@(JA@ZFA YE@,KC@,KA0P''I1T@@@@@JB RH2D!!HRD HA(MCP\DI2\U@@@@@B (GRT#H2D"H2L^C0<HAB\''EP@@@@@(
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1267	JA4%H2L!!H"L#G <OB@P''I1T@@@@@JB ZH2P$H1<_G1$OC0XDI2\U@@@@@B (C!!$ HA,\FQ$OC0<FAB\''EP@@@@@(JA@WE!!XWFQ XC <OBPT''I1T@@@@@JB P
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1268	E1XVE1$XF@8OC0$EI2\U@@@@@B (A!!DSD0(CB (B@PDAAB\''EP@@@@@''I2\''I"X''I2\''I2\''I2\''I1T@@@@@I2\''I2X&I2\''I2\''I2\''I2\U@@@@@@@@EQTU
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1269	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1270	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 60 78 83 61 77 82 63 79 84 63 81 86 66 83 87 66 84 89 66 85 91 67 86 92 68 86 91 69 87 92 69 88 94 70 90 95 71 91 96 71 92 98 72 93 99 73 94 100 74 92 97 74 95 101 75 93 98 75 96 102 76 76 76 76 97 103 77 98 104 77 99 106 79 101 108 80 103 109 81 104 110 82 105 111 83 106 112 83 107 114 86 110 117 87 111 118 88 113 121 89 114 122 90 116 123 91 117 124 92 118 125 126 126 126 127 127 127 139 139 139]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1271	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1272
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1283	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1284	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1285	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1299	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
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	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1463
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1464	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1466	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1468	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1469	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1471	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1472
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1473	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1474	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1475	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1477	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1479	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1480	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1481	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1482	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1483	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1485	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1486	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1487	self ditherListSelection value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1488	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1489	self clipEncodingListSelection value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1490	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1491	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1493	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1495	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	Image flushDeviceImages.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1498	screen visualType == #PseudoColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499	self useFixPalette value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	Color colorAllocationFailSignal handle:[:ex \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1501	self warn:'Could not allocate colors.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1502	] do:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1503	Color getColorsRed:4 green:8 blue:4 on:screen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	screen releaseFixColors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	self useFixGrayPalette value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1510	Color colorAllocationFailSignal handle:[:ex \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1511	self warn:'Could not allocate colors.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	] do:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513	Color getGrayColors:32 on:screen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516	screen releaseFixGrayColors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1519	screen hasColors:self isColorMonitor value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520	screen widthInMillimeter:self sizeX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521	screen heightInMillimeter:self sizeY value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1523	screen supportsDeepIcons:self deepIcons value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
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	WindowGroup activeGroup withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	View defaultStyle:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	^ clipEncodingList.
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	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	^ clipEncodingListSelection.
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	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	^ ditherSymsNotNil.
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	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	^ sizeY.
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	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	^ useFixGrayPalette.
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	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	^ useFixGrayPaletteLabel.
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	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	^ useFixPalette.
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	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	\| listOfSizes visual\|
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1759	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	listOfSizes := resources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	^ super postOpenWith:aBuilder
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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1804	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1806	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1807	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1808	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1809	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1810	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1811	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1813	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1814	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1815	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1816	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1817	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1818	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1819	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1820	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1821
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1822	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1823
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1824	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1825	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1826	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1827
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1828	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1829	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1830
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1831	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1832	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1833	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1834	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1835	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1836
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1837	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1838
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1839	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1840	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1841	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1842	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1843	@@(JBP$IBP$FBP$IBP$IAPTE@0L@@@@JB $IBP$IA $IBP$IBPTEAPLC@@@@B (FA XFA XFA XFA TE@0LC@0@@@@(JBP$IBP$FBP$IAPTE@0LC@0P@@@@J
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1844	B $IBP$IA $IAPTE@0LC@0PK@@@@B (IBP$IBPXIBPTEAPLC@0LDB0@@@@(JA XFA XFA TH@0LC@0PD@ @@@@@JB $IBP$I@@ HB@LC@0PB@ @@@@@@B (I
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1845	BP$IBPXHB@ HB@ K@PD@@@@@@@(JA XFA @HB@ HB@ F@@DA@@@@@@@JB XFA X@B@ HB@ FA @A@P@@@@@@B (IBP$I@P HB@XFA (I@PD@@@@@@@(JBP$I
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1846	@PHKA XJBP$IBPDA@@@@@@@JB @@@@D@@@@@@@@@@@@A@P@@@@@@B (@@@D@@@@@@@@@@@@@@PD@@@@@@@(JBP$IBP$@BP$IBP$IBPDA@@@@@@HA@PDA@PDA
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1847	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 255 128 0 192 88 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255 220 220 220 64 0 0]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1848	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1849
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1860	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1861	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1862	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1872	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1873	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1876	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1883	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1926	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1927	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1928	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1934	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1935	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1937	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1938	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1939	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1940	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1942	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1950	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1957	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1958
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	self st80EditingMode value: UserPreferences current st80EditMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	self st80DoubleClickSelectMode value: TextView st80SelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	self tabsIs4 value: (ListView userDefaultTabPositions = ListView tab4Positions).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968	self searchDialogIsModal value: UserPreferences current searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	self startTextDragWithControl value: UserPreferences current startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	self modifiedChannel value:false.
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	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	UserPreferences current st80EditMode:(self st80EditingMode value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980	ListView allSubInstancesDo:[:eachKindOfListView \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	^ modifiedChannel
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	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	^ searchDialogIsModal.
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	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2054	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2059	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2060
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2061	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2062
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2063	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2064	self loadRequest.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2065	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2066	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2068	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2069	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2070
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2071	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2072
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2074	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2075	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2077	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2079	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2080	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2081	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2082
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2083	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2084
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2085	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2087	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2088	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2089	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2090	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2091	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2092	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2093	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2094	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2095	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2096	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2098	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2099
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2100	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2101
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2112	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2113
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2114	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2115	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2116	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2117
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2118	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2119	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2121	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2122	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2123	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2124	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2125	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2126
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2127	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2128
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2129	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2130	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2131	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	2132	@@@@@@@@@@@@@@@@@@@@@!!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	2133	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	2134	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	2135	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2136
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2137	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2138	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2139	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2140
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2141	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2142	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2143
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2144	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2145	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2146	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2147	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2148	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2149
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2150	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2151
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2152	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2153	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2154	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	2155	@@@@@@@@@@@@@@@@@@@@@!!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	2156	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	2157	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	2158	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2159
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2160	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2162	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2164	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2165
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2166	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2167	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2168	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2169	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2170	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2172	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2174	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2175	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2176	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2178	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2179	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2180
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2181	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2185	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2187	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2189	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2190	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2191	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2193	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2194	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2195	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2196	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2197	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	#bounds: #(#Rectangle 16 42 512 654)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2199	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2200	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2201	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2202	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2207	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2208	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2209	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2210	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2211	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2212	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	#label: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2250	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2253	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2254	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2321	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2322	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2323
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2324	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2364	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2376	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2377	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2378	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2379	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2380	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2381	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2382	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2383	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2384	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2385	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2386	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2387	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2388	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2389	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2390	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2391	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2392	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2393	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2394	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2395	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2396	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2397	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2398	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2399
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2400	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2401	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2402	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2403	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2404	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2405	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2406	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2407	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2408	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2409	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2410	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2411	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2412	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2413	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2414	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2415	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2416	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2417	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2418	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2419	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2420	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2421	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2422	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2423	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2424	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2425	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2426	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2427	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2428	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2429	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2430	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2431	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2432	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2433	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2434	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2435	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2436	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2437
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2438	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2439	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471	self allOfThem value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	self labelDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473	self buttonDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	self listDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	self menuDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	self textDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2485	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489	self allOfThem value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2494	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	self labelDef value:f.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2502	].
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	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	self listDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	self menuDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	self textDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	self textDef value:TextView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	\| master requestor\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	master := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	master notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	requestor := master requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572	Label defaultFont:self labelDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573	Button defaultFont:self buttonDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	Toggle defaultFont:self buttonDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	MenuView defaultFont:self menuDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	PullDownMenu defaultFont:self menuDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	buttonsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	buttonsFontLabelHolder := Button defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2629	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2631	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633	labelsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2634	labelsFontLabelHolder := Label defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2635	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2637	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2639	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2640	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2643	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651	listsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2652	listsFontLabelHolder := SelectionInListView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2654	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2655	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2657	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2662	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	menusFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670	menusFontLabelHolder := MenuView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	textFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696	textFontLabelHolder := TextView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	f := self allOfThem value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	allLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2717	self allFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2721	changedObject == self labelDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723	f := self labelDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724	labelLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2730	self labelsFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2734	changedObject == self buttonDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736	f := self buttonDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737	buttonsLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2739	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2740	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2741	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2743	self buttonsFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2747	changedObject == self listDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2748	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2749	f := self listDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2750	listsLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2751	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2752	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2753	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2755	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2756	self listsFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2757	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2758	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2759	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2760	changedObject == self menuDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2761	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2762	f := self menuDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2763	menuLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2764	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2765	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2766	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2767	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2768	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2769	self menusFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2771	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2772	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2773	changedObject == self textDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2774	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2775	f := self textDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2776	textLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2777	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2778	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2779	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2780	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2781	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2782	self evaluateModified.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2783	self textFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2784	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2785	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2787	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2788	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2790	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2792	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2793
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2795	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2796	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2798	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2799
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2800	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2801	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2803	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2805	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2806	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2807
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2808	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2809
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2810	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2811	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2813	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2815	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2818	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2819
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2820	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2821	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2823	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2825	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2826	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2828	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2829
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2830	self loadRequest.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2831	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2833	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2835	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2836	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2837	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2839	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2840
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2841	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2842	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2843	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2844
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2845	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2847	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2849	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2850	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2851	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2852	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2853	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2854	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2855
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	^ #( keep reference absReference sourceReference discard )
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	keepSourceStrings
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	^ #('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	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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2872	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2874	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2875	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2876
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2877	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2878	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2879	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2880	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2881	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2882
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2883	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2884
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2885	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2886	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2887	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2888	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2889	@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PD@@PD@@@H@@@D@@@@@@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@@DA@P@A@P@A@P@@@ @@@P@@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891	@@@A@P@A@PDA@PD@@PD@@@H@@@DA@PDA@PD@@PDA@PDA@@DA@@@B@@@A@@@@@@DA@@DA@PDA@P@A@P@@@ @@@PDA@PDA@P@A@PD@@PD@@PD@@@H@@@D@@@@@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; 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]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2895
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2896	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2897
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2898	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2899	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2901
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2902	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2906	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2907	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2908	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2909	"
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	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2912
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	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2918	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2919	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2920	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922	#bounds: #(#Rectangle 16 42 616 362)
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	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2928	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929	#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	2930	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2934	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2937	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2938	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2944	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2954	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2956	#extent: #(#Point 600 25)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2959	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2965	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2967	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978	#useIndex: true
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	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2982	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	#adjust: #right
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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2989	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2998	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2999	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3000	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002	#extent: #(#Point 600 25)
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	)
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3016	evaluateModified
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3018	self modifiedChannel value:(self hasUnsavedChanges).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3019	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3021	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3022
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3023	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3025	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3026
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3027	loadRequest
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3028
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3029	self keepSourceSelection value:(self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3030	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3031	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3032	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3033	self loadBinaries value:Smalltalk loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3034	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3035	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3036	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3037	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3038	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3039	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3040	self fullHistoryUpdate value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3041	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3042	self historyLines value:self hasHistoryManager.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3043	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3044	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3045
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3046	saveSettings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3047
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3048	self hasUnsavedChanges ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3049	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	Class catchClassRedefinitions:self catchClassRedefs value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051	Class catchMethodRedefinitions:self catchMethodRedefs value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3052	HistoryManager notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3053	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3054	self historyLines value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3055	HistoryManager activate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3056	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3057	HistoryManager deactivate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3058	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3059	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3060	Smalltalk loadBinaries:self loadBinaries value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3061	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3062	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3063	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3064
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3065	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3066
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3067	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3068
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3069	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3070	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3071	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3072	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3073	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3074
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3075	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3076
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3077	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3078	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3079	catchClassRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3080	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3081	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3082	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3083
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3084	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3085
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3086	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3087	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3088	catchMethodRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3089	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3090	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3091	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3092
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3093	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3094
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3095	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3096	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3097	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3098	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3099	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3100	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3101	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3102	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3103	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3104	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3105
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3106	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3107
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3108	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3109	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3110
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3111	historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3112
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3113	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3114	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3115	historyLines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3116	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3117	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3118	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3119
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3120	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3121
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3122	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3123	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3124	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3125	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3126	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3127
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3128	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3129
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3130	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3131	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3132	keepSourceSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3133	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3134	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3135	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3136
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3137	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3138
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3139	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3140	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3141	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3142	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3143	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3144	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3145	loadBinaries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3146	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3147	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3148	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3149
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3150	modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3151
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3152	modifiedChannel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3153	modifiedChannel := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3154	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3155	^ modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3156	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3157
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3158	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'change & update'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3159
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3160	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3161	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3162
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3163	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3164
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3165	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3166	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3167	"/ ].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3168
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3169	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3170	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3171
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3172	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'initialization & release'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3173
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3174	initialize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3175
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3176	resources := self class classResources.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3177	self loadRequest.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3178	super initialize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3179	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3180
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3181	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3182
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3183	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3184
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3185	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3186	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3187	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3188	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3189	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3190	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3191	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3192	]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3193	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3194	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3195
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3196	!AbstractSettingsApplication::HTTPServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3197
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3198	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3199	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3200	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3201
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3202	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3203	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3204
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3205	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3206	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3207	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3208	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3209	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3210
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3211	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3212
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3213	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3214	constantNamed:#'AbstractSettingsApplication::HTTPServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3215	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3216	@@@@@HQ-M!!T6M&5-\@@@@@@@@@@@@@@@@GT4HB,1DS$9NUQ0@@@@@@@@@@@@@F<3JP\MG X9NSL9RG@@@@@@@@@@@GT2GQ\C@0LIJ%L3O11J\@@@@@@@(XP4
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3217	LA$C@0LCAA<''F"8,F4V3@KT@+0A-JCD]@0LCNT-MSEAPS49V$7L@@@@@MQ@XFPLCNE!!XVE!!XVE!!XVE!!X@@@@@AT$APLC@5"9-K6?1LSD1LFJQ@@@@@@KEBT&
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3218	CPMX*R-+Z2+(JZX\DP@@@@@@RL1LR,NVJ8:.K"7-%&I%GAD@@@@@D$OK3D1HU"[%IRT%IRT%I]0Q@@@@@A=@!!L1KQYXJ"(*J"(.8:T\DP@@@@@)THRLQ$C
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3219	VJ"(J"(IBO%''AD@@@@@@B:P2HL@5"K"8.K"8.K"8M0Q@@@@@@@@J]FB@MX0K0:N#(:N,B2\DP@@@@@@@@@,T\;VJ#B0<OC0<N>&GAD@@@@@@@@@@@@*U"(
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3220	0<OC0<OC0I!!0Q@@@@@@@@@@@@@AXLU<#HVF$,BX\DP@@@@@@@@@@@@@VJ#C@@@@@@CC&GAD@@@@@@@@@@@@@E"(''92\''I2\(9!!0Q@@@@@@@@@@@@@AXIVO
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3221	#8>O#9*X\DP@@@@@@@@@@@@@VJ!!>&Y:B"I:M&GAD@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 80 0 0 159 0 0 255 0 2 253 0 7 248 0 8 235 0 8 247 0 14 223 0 16 239 0 20 55 0 20 60 0 32 223 0 35 220 0 47 207 0 50 205 0 60 195 0 64 175 0 64 181 0 64 191 0 74 181 0 80 0 0 87 167 0 90 164 0 92 163 0 97 157 0 102 142 0 103 133 0 107 112 0 111 143 0 114 140 0 115 139 0 127 79 0 127 127 0 150 76 0 159 95 0 165 89 0 184 71 0 191 64 0 200 33 0 207 0 0 208 45 0 213 0 0 225 30 0 235 20 0 240 15 0 243 0 0 244 11 0 245 8 0 255 0 6 132 42 6 168 6 10 149 10 17 41 72 17 96 17 25 25 25 25 25 232 28 28 227 30 30 30 33 32 152 35 35 35 35 35 133 40 40 40 42 131 42 45 45 45 50 50 50 51 51 111 51 55 105 52 52 52 54 60 76 54 116 54 60 60 88 60 60 103 62 61 141 62 62 125 65 64 193 65 104 153 65 112 145 65 136 121 65 160 97 65 192 65 68 68 68 71 111 71 76 121 76 77 76 205 80 80 80 85 100 85 95 95 95 97 97 97 98 207 98 103 103 103 104 104 104 107 105 186 107 106 235 109 108 236 109 109 109 111 109 147 111 111 111 111 111 255 114 113 162 114 114 210 116 116 116 117 117 117 118 116 165 118 117 245 118 118 118 119 117 158 119 119 119 120 120 120 120 159 120 127 127 127 130 146 130 131 129 131 132 131 191 135 135 135 136 135 136 138 138 246 142 142 142 143 143 143 143 143 255 147 145 147 147 146 174 147 146 227 150 148 230 151 149 151 151 151 151 153 150 153 155 153 155 156 154 156 156 155 240 157 156 157 159 157 86 159 159 159 162 160 162 162 161 162 162 162 242 163 161 163 164 163 164 165 164 165 166 164 76 166 164 166 168 165 168 168 166 168 172 169 172 173 170 173 173 171 222 174 172 174 175 174 175 176 173 176 178 175 178 181 178 181 182 179 182 184 181 184 184 182 184 186 183 186 187 184 187 187 187 251 188 186 188 189 188 189 189 188 237 189 197 189 190 190 190 191 189 191 192 191 220 194 192 194 194 194 194 195 193 195 196 196 196 197 194 197 197 197 197 198 195 198 200 191 194 200 192 195 200 197 200 201 199 201 202 202 202 203 202 203 204 204 204 205 203 205 206 206 206 207 204 207 207 207 207 208 147 148 208 157 158 208 207 208 211 208 211 211 211 211 214 213 214 215 213 224 217 215 217 218 217 218 219 217 219 222 220 222 223 222 223 224 223 229 228 227 236 229 228 229 233 232 233]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<D??>(???@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3222	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3223
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3224	!AbstractSettingsApplication::HTTPServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3225
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3226	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3227	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3228	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3229
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3230	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3231	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3232
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3233	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3234	UIPainter new openOnClass:AbstractSettingsApplication::HTTPServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3235	AbstractSettingsApplication::HTTPServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3236	AbstractSettingsApplication::HTTPServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3237	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3238
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3239	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3240
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3241	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3242	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3243	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3244	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3245	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3246	#label: 'HTTP Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3247	#name: 'HTTP Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3248	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3249	#max: #(#Point 1024 768)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3250	#bounds: #(#Rectangle 16 42 616 592)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3252	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3253	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3254	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3255	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3256	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3257	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3258	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3259	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3260	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3261	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3262	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3263	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3264	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3265	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3266	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3267	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3268	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3269	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3270	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3271	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3272	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3273	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3274	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3275	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3276	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3277	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3278	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3279	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3280	#label: 'Serving HTTP Requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3281	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3282	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3283	#enableChannel: #hasHTTPServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3284	#model: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3285	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3286	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3288
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3289	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3290	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3291	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3292	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3293	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3294	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3295	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3296	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3297	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3298	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3299	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3300	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3301	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3302	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3303	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3304	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3305	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3306	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3307	#enableChannel: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3308	#model: #httpServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3309	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3310	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3311	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3312	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3313	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3314	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3316
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3317	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3318	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3319	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3320	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3321	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3322	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3323	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3324	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3325	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3326	#label: 'Log File:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3327	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3328	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3329	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3330	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3331	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3332	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3333	#name: 'EntryField2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3334	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3335	#enableChannel: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3336	#model: #httpServerLogFile
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3337	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3338	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3339	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3340	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3341	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3342	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3343
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3344	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3345	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3347	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3348	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3349	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3350	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3351	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3352	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3353	#label: 'File Root:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3354	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3355	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3356	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3357	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3358	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3359	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3360	#name: 'EntryField3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3361	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3362	#enableChannel: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3363	#model: #httpServerFileRoot
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3364	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3365	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3366	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3367	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3368	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3369	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3370
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3371	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3372	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3373	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3374	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3375	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3376	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3377	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3378	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3379	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3380	#label: 'Home URL:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3381	#name: 'Label4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3382	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3383	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3384	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3385	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3386	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3387	#name: 'EntryField4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3388	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3389	#enableChannel: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3390	#model: #httpServerHomeURL
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3391	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3392	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3393	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3394	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3395	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3396	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3397
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3398	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3399	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3400	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3401	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3402	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3403	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3404	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3405	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3406	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3407	#label: 'Swiki enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3408	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3409	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3410	#enableChannel: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3411	#model: #swikiEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3412	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3413	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3414	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3415
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3416	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3417	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3418	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3419	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3420	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3421	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3422	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3423	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3424	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3425	#label: 'SwikiRoot:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3426	#name: 'Label5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3427	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3428	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3429	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3430	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3431	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3432	#name: 'EntryField5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3433	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3434	#enableChannel: #swikiRootEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3435	#model: #swikiRoot
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3436	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3437	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3438	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3439	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3440	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3441	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3442
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3443	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3444	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3445	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3446	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3447	#name: 'Box8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3448	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3449	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3450	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3451	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3452	#label: 'Allow embedded ST applications'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3453	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3454	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3455	#enableChannel: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3456	#model: #allowEmbedded
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3457	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3458	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3459	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3460
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3461	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3462	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3463	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3464	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3465	#name: 'Box9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3466	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3467	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3468	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3469	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3470	#label: 'Soap enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3471	#name: 'CheckBox4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3472	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3473	#enableChannel: #httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3474	#model: #soapEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3475	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3476	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3477	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3478
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3479	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3480	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3481	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3482	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3483
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3484	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3485	#extent: #(#Point 600 230)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3486	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3487	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3488
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3489	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3490	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3491	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3492
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3493	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3494	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3495	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3496
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3497	!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3498
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3499	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3500
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3501	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3502	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3503
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3504	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3505
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3506	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3507	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3508
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3509	loadRequest
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3510
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3511	(self hasHTTPServer and:[HTTPServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3512	self httpServerRunning value:HTTPServer isRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3513	self httpServerFileRoot value:HTTPServer fileRoot.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3514	self httpServerHomeURL value:HTTPServer homeURL.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3515	self httpServerPort value:HTTPServer defaultPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3516	self httpServerLogFile value:HTTPServer defaultLogFile.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3517	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3518	self httpServerRunning value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3519	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3520	(self hasSwiki and:[PWS::SwikiAction isLoaded and:[(self hasHTTPServer and:[HTTPServer isLoaded])]]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3521	self swikiEnabled value:HTTPServer hasMySwikiConfigured.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3522	self swikiRoot value:PWS::SwikiAction serverDirectory.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3523	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3524	self swikiEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3525	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3526	(self hasSoap and:[SOAP::SoapHttpModule isLoaded and:[(self hasHTTPServer and:[HTTPServer isLoaded])]]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3527	self soapEnabled value:HTTPServer hasSoapEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3528	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3529	self soapEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3530	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3531	self allowEmbedded value:(HTTPServer isLoaded and:[HTTPServer enableEmbeddedSmalltalk]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3532	self swikiRootEnabled value:(self httpServerRunning value and:[self swikiEnabled value]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3533	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3534	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3535
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3536	saveSettings
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3537
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3538	\| httpServFileRoot httpServLogFile httpServHomeURL swikiRootLoc\|
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3539
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3540	self hasUnsavedChanges ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3541	(self hasHTTPServer and:[HTTPServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3542	HTTPServer defaultPort:self httpServerPort value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3543	httpServerFileRoot := self httpServerFileRoot value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3544	httpServFileRoot size == 0 ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3545	httpServFileRoot := nil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3546	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3547	HTTPServer fileRoot:httpServFileRoot.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3548
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3549	httpServLogFile := self httpServerLogFile value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3550	httpServLogFile size == 0 ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3551	httpServLogFile := nil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3552	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3553	HTTPServer defaultLogFile:httpServLogFile.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3554
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3555	httpServHomeURL := self httpServerHomeURL value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3556	httpServHomeURL size == 0 ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3557	httpServHomeURL := nil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3558	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3559	HTTPServer homeURL:httpServHomeURL.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3560
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3561	self httpServerRunning value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3562	HTTPServer startServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3563	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3564	HTTPServer stopServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3565	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3566	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3567
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3568	self hasSwiki ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3569	swikiRootLoc := self swikiRoot value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3570	swikiRootLoc size == 0 ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3571	swikiRootLoc := nil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3572	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3573	PWS::ServerAction serverDirectory:swikiRootLoc.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3574
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3575	self swikiEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3576	HTTPServer setupMySwiki
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3577	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3578	HTTPServer disableMySwiki
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3579	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3580	HTTPServer enableEmbeddedSmalltalk:self allowEmbedded value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3581	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3582	self hasSoap ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3583	self soapEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3584	HTTPServer setupSoap
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3585	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3586	HTTPServer disableSoap
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3587	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3588	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3589	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3590	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3591	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3592
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3593	!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3594
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3595	allowEmbedded
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3596
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3597	allowEmbedded isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3598	allowEmbedded := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3599	allowEmbedded onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3600	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3601	^ allowEmbedded.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3602	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3603
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3604	httpServerFileRoot
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3605
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3606	httpServerFileRoot isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3607	httpServerFileRoot := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3608	httpServerFileRoot onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3609	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3610	^ httpServerFileRoot.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3611	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3612
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3613	httpServerHomeURL
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3614
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3615	httpServerHomeURL isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3616	httpServerHomeURL := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3617	httpServerHomeURL onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3618	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3619	^ httpServerHomeURL.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3620	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3621
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3622	httpServerLogFile
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3623
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3624	httpServerLogFile isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3625	httpServerLogFile := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3626	httpServerLogFile onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3627	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3628	^ httpServerLogFile.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3629	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3630
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3631	httpServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3632
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3633	httpServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3634	httpServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3635	httpServerPort onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3636	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3637	^ httpServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3638	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3639
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3640	httpServerRunning
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3641
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3642	httpServerRunning isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3643	httpServerRunning := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3644	httpServerRunning addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3645	httpServerRunning onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3646	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3647	^ httpServerRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3648	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3649
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3650	modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3651
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3652	modifiedChannel isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3653	modifiedChannel := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3654	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3655	^ modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3656	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3657
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3658	soapEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3659
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3660	soapEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3661	soapEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3662	soapEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3663	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3664	^ soapEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3665	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3666
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3667	swikiEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3668
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3669	swikiEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3670	swikiEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3671	swikiEnabled addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3672	swikiEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3673	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3674	^ swikiEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3675	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3676
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3677	swikiRoot
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3678
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3679	swikiRoot isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3680	swikiRoot := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3681	swikiRoot onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3682	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3683	^ swikiRoot.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3684	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3685
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3686	swikiRootEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3687
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3688	swikiRootEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3689	swikiRootEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3690	swikiRootEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3691	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3692	^ swikiRootEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3693	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3694
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3695	!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3696
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3697	httpServerRunningChanged
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3698
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3699	self httpServerFileRoot value:(HTTPServer fileRoot).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3700	self httpServerHomeURL value:(HTTPServer homeURL).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3701	self httpServerPort value:(HTTPServer defaultPort).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3702	self httpServerLogFile value:(HTTPServer defaultLogFile).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3703	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3704
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3705	swikiEnabledChanged
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3706
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3707	self swikiRoot value:(PWS::SwikiAction serverDirectory).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3708	self swikiRootEnabled value:self swikiEnabled value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3709	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3710
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3711	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3712	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3713
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3714	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3715
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3716	changedObject == self httpServerRunning ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3717	self httpServerRunningChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3718	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3719	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3720	changedObject == self swikiEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3721	self swikiEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3722	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3723	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3724
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3725	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3726	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3727
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3728	!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3729
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3730	initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3731
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3732	resources := self class classResources.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3733	self loadRequest.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3734	super initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3735	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3736
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3737	!AbstractSettingsApplication::HTTPServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3738
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3739	hasHTTPServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3740
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3741	^ HTTPServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3742	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3743
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3744	hasSoap
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3745
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3746	^ SOAP::SoapHttpModule notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3747	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3748
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3749	hasSwiki
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3750
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3751	^ PWS::SwikiAction notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3752	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3753
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3754	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3755
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3756	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3757	(((self hasHTTPServer and:[HTTPServer isLoaded]) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3758	HTTPServer defaultPort ~= self httpServerPort value or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3759	HTTPServer fileRoot ~= (self httpServerFileRoot value isEmptyOrNil ifTrue:[nil] ifFalse:[self httpServerFileRoot value]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3760	HTTPServer defaultLogFile ~= (self httpServerLogFile value isEmptyOrNil ifTrue:[nil] ifFalse:[self httpServerLogFile value]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3761	HTTPServer homeURL ~= (self httpServerHomeURL value isEmptyOrNil ifTrue:[nil] ifFalse:[self httpServerHomeURL value]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3762	HTTPServer isRunning ~= self httpServerRunning value]]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3763
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3764	self hasSwiki and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3765	PWS::ServerAction serverDirectory ~= (self swikiRoot value isEmptyOrNil ifTrue:[nil] ifFalse:[self swikiRoot value]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3766	HTTPServer enableEmbeddedSmalltalk ~= self allowEmbedded value or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3767	HTTPServer hasMySwikiConfigured ~= self swikiEnabled value ]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3768	self hasSoap and:[HTTPServer hasSoapEnabled ~= self soapEnabled value]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3769	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3770	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3771
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3772	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3773
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3774	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3775	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3776	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3777
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3778	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3779	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3780
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3781	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3782	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3783	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3784	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3785	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3786
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3787	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3788
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3789	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3790	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3791	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3792	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3793	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3794	@@HDA@PDA@@D@@PD@@@@@@@@@@@@@@PDA@P@A@P@A@@DA@L@@@@@@@@@@@@B@ PD@@PD@@PDA@LC@0@@@@@@@@@@@ HBA@@@@@@DA@LC@0@@@@@@@@@@@@@B
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3795	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3796	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3797	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 128 128 128 192 192 192 255 255 255]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3798	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3799
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3810	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3811	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3812	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3822	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3823	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3826	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3833	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3840	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3842	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3844	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3845	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3846	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3852	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3853	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3854	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3855	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3856	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3857	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3858	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3861	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3914	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3918
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3934	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3958	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3963	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3964	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3972	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3973	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3974	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3975	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3976	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3977	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3978	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3980	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3981
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3983	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3984	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3985	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3986	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3988	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3991	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002	^ selectedFunctionKey.
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	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	self selectedRawKey value:raw.
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	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4103	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4105	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4106	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4107	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4108
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4111	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4113	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4115	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4116	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4118	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4119	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4122	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4127	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4128
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4129	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4130
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4131	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4132	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4133	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4134
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4135	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4136	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4137
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4138	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4139	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4140	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4141	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4142	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4143
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4144	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4145
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4146	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4147	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4148	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4149	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PDA@PD@@@@@@@@A@PD@@@@@@@@A@R,+J2,+@PDA@PDAF1@P@P@@@@@@@PD[J2,+GQ4]GQ4+J2,WE0D@@@@@@@DA
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4150	F2,+J14]GQ4]GR,+E1\A@@@@@@@A@Q,+J14]GQ4]GQ4]J1,[@P@@@@@@@PD[J2,]GQ4]GQ4]GR,+J0DA@PD@@@DAF2,+@PX]GPXAGQ4+J2,B@PDA@@@A@Q,+
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4151	J0DFB0,F@P(J@P(J@ DA@P@@@PD[J2,A@PXFB0XA@PTEAPTE@PDA@@DAF2,+@QPFA!!8T@0LBAPTEB@DA@P@A@QXA@PD^IBP$G <OD!!PTHBDXF@$@@PDV@PDA
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4152	G"@ HB@OC1HTEB@ FA I@@DAA@@@@QP^G"PTD1LNGA0 HB@ BP@A@P@@@@DTF!!(*JR (EQPTH"T_G0$@@PD@@@@AEA(#H2L(JATTEBH%G2LI@@DA@@@@@QT#
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4153	H2$#H2L#H2L#H2L#A0@A@P@@@@DQFQ$LA2L#CBL#JR(#H00@@@@@@@@AC@0L@@@GA00GA00LA0\@@@@@@@@@@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4154	@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@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 107 107 107 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 233 135 135 235 146 146 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4155	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4156
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4160	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4167	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4168	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4169	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4170	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4172	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4177	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4178	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4179	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4180	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4181	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4182	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4183	#bounds: #(#Rectangle 16 42 491 713)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4184	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4185	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4186	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4187	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4188	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4189	#name: 'EntryField1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4190	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 125 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4191	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4192	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4193	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4194	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4195	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4196	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4197	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4198	#name: 'List1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#layout: #(#LayoutFrame 0 0.0 125 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4200	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4201	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4202	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4203	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4204	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4205	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4206	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4207	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4208	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4209	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4210	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4211	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4212	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4213	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4214	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4215	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4216	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4217	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4218	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4219	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4220	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4221	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4222	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4223	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4224	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4225	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4226	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4227	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4228	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4229	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4230	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4231	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4232	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4233
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4234	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4235	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4236	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4237
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4238	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4240	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4241	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4243	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4244	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4245
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4246	requestor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4247	"return the value of the instance variable 'requestor' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4249	\| masterApplication \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4250	masterApplication := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4251	masterApplication notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4252	^ masterApplication requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4253	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4254	^ nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4255	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4256
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4257	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4259	doubleClick:aEntry
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4261	self saveSettings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4262	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4264	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4266	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4267	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4269	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4271	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4272	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4274	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4276	self languageHolder value:self currentLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4277	self currentLanguageChannel value:self currentLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4278	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4279	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4281	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4283	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4284	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4286	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4287	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4288	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4289	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4290	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4291	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4292	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4293	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4294	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4295	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4296	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4297	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4298	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4299	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4300	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4304	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4306
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4307	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4312	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4313	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4314	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4315
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4316	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4317	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4318	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4319	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4320	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4321	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4322	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4323	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4324	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4325	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4326	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4327	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4328	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4329	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4330	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	4331	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4332	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4333	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4334	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4335	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4336	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4337	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4338	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4339	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4340	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4341	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4342	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4343	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4344	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4345	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4346	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4347	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4348	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4349	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4350	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4351	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4352
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4353	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4354	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4355	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4356	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4358	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4359	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4360	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4361	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4362	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4363	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	4364	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368	self currentLanguageChannel value:self currentLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4375
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4376	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4385	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4386	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4387	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4388	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4390	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4392	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4397	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4398
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4399	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4400
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4402	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4403	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4404	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4405	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4406
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4407	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4409	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4410	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4411	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4412	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4413	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4415	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4417	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4418	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4419	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4420	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4421	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4426	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4427
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4428	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4430	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4431	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4432	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4434	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4437
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4438	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4439	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4440	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4441	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4442	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4443	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4444	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4445	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4446	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4447	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4448	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4449	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4450	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4451	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4452	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4453	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4454	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4455	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4456	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4457	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4458	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4459	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4460	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4461	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4462	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4463	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4464	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4465	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4466	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4467	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4468	languageList := translatedLanguages with:flags collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4469	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4470	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4472	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4474	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4476	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4478	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4479	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4480	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4481	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4482	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4483	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4484	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4486	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4488	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4489	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4490
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4491	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4492
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4493	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4494	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4495	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4496
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4497	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4498	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4499
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4500	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4501	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4502	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4503	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4504	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4505
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4506	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4507
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4508	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4509	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4510	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4511	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4512	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4513	RC-VGQ\JB0,MCP0NGQPEUQ4@@@ARM14>IA\HB $JB0,MF!!TGO%,6T0@@RSMAF!!TGA0 HB $JFQL@AR9ZRTX@RDAWHALEAPTGA0 HE1HGPA<;FC@@@B$&I1LA
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4514	@ LEA@TGE1L@NU1EOQ=M@@@''L LXB@@A@ LEEQDHB1!!ERC!!U@@@@P#,@AQ\G@@@AEA@@OB5FGT!!T@@@@@@AYF0@EE0\AD1D@G5D4S%UG@@@@@@@@@C(F@@PW
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4515	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4516	SAMM@@@@@@@@@@@@@@@@@@@@@@@@@@@V@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 1 1 1 3 3 3 5 5 5 9 9 9 10 10 10 14 14 14 15 15 15 20 20 20 23 23 23 25 25 25 30 30 30 34 34 34 35 35 35 39 39 39 40 40 40 44 44 44 45 45 45 49 49 49 50 50 50 57 57 57 60 60 60 69 69 69 70 70 70 80 80 80 82 82 82 83 83 83 84 84 84 89 89 89 90 90 90 93 93 93 94 94 94 95 95 95 98 98 98 99 99 99 101 101 101 106 106 106 109 109 109 113 113 113 114 114 114 119 119 120 128 128 128 134 134 134 137 137 137 137 137 139 139 139 139 143 143 143 144 144 144 145 145 145 146 146 146 147 147 147 147 147 148 148 148 148 149 149 149 150 150 150 155 155 155 156 156 156 157 157 157 158 158 158 160 160 160 162 162 162 163 163 164 165 165 165 166 166 168 167 167 167 168 168 168 172 172 172 173 173 173 175 175 175 177 177 177 178 178 178 179 179 179 180 180 180 182 182 182 182 182 184 192 192 192 193 193 196 198 198 198 200 200 200 200 200 201 201 201 201 202 202 202 203 203 203 204 204 204 204 204 206 205 205 205 206 206 206 207 207 207 209 209 209 213 213 213 225 225 225 247 247 247 255 255 255]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4517	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4518
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4519	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4521	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4522	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4523	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4525	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4526	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4528	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4532	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4534	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4536	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4537	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4538	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4539	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4540	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4541	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4542	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4543	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4544	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4545	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4546	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4547	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4548	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4549	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4550	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4551	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4552	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4553	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4554	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4555	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4556	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4557	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4562	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4563	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4564	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4565	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4566	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4567	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4592	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4595	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4596	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4597	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4598	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4599	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4600	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4601	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4602
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4603	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4604	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4605	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4606	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4607	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4608	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4609	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4610	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4611	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4612	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4613	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4614	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4615	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4616	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4617	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4618	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4619	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4620	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4621	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4622	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4623	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4624	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4625	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4626	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4627	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4628	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4629	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4630	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4631	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4632	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4633	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4634	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4635	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4636	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4637	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4638	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4639	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4640
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4641	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4642	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4643	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4644	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4645	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4646	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4647	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4648	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4649	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4650	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4651	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4652	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4653	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4654	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4655	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4656	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4657	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4658	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4659	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4660	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4661	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4662	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4663	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4664	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4665	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4666	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4667	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4668	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4669	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4670	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4671	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4672	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4673	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4674	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4675	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4676	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4677	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4678
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4679	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4680	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4681	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4682	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4683	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4684	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4685	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4686	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4687	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4688	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4689	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4690	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4691	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4692	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4693	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4694	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4695	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4696	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4697	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4698	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4699	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4700	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4701	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4702	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4703	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4704	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4705	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4706	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4707	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4708	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4709	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4710	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4711	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4712	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4713	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4714	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4715	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4716
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4717	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4718	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4719	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4720	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4721	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4722	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4723	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4724	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4725	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4726	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4727	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4728	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4729	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4730	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4731	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4732	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4733	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4734	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4735	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4736	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4737	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4738	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4739	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4740	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4741	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4742	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4743	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4744	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4745	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4746	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4747	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4748	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4749	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4750	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4751	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4752	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4753	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4754
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4755	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4756	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4758	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4759	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4760	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4761	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4762	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4763	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4764	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4765	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4766	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4767	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4768	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4769	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4770	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4771	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4772	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4773	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4774	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4775	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4776	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4777	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4778	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4779	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4780	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4781	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4782	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4783	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4784	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4785	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4786	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4787	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4788	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4789	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4790	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4791	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4792
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4793	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4794	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4795	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4796	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4797	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4798	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4799	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4800	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4801	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4802	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4803	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4804	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4805	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4806	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4807	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4808	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4809	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4810	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4811	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4812	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4813	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4814	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4815	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4816	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4817	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4818	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4819	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4820	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4821	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4822	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4823	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4824	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4825	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4827	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4828	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4829	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4832	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4833	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4835	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4836	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4837	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4838	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4843	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4851	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4852	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4858	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4859	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4860	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4861	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4862	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4863	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4864	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4865	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4866	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4867	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4868
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4869	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4870	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4871	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4872	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4883	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4884	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4885	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4899	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4942	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4945	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4946
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4947	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4952	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4958	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4959	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4960	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4961	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4962	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4963	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4964	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4965	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4966	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4967	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4968	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4969	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4970	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4971	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4972	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4973	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4974	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4975	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4976	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4977	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4978	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4979	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4980	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4981	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
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	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4987	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4988	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4990	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4991	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4992	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4993
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4994	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4995	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4996	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4998	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5000	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5002	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5003	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5005	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5007	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5008	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5009	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5011	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5013	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5014	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5015	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5016	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5017	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5018	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5019	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5020	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5021	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5022	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5023	self maxOldSpace value:ObjectMemory maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5024	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5027	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5029	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5030	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5031	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5032	ObjectMemory incrementalGCLimit:self igcLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5033	ObjectMemory newSpaceSize:self newSpaceSize value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5034	ObjectMemory oldSpaceIncrement:self oldIncr value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5035	Process defaultMaximumStackSize:self stackLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5036	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5037	ObjectMemory maxOldSpace:self maxOldSpace value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5038	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5039	ObjectMemory dynamicCodeLimit:self codeLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5040	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5041	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5042	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5043	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5045	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5047	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5048
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5049	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5050	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5051	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5052	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5053	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5054	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5056	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5058	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5059	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5060	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5061	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5062	^ codeTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5063	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5064
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5065	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5066
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5067	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5068	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5069	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5070	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5071	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5072	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5073
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5074	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5076	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5077	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5078	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5079	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5080	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5081	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5082
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5083	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5084
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5085	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5086	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5087	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5088	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5089	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5090	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5092	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5094	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5095	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5096	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5097	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5098	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5099	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5101	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5103	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5104	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5105	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5106	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5107	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5108	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5110	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5112	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5113	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5114	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5115	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5116	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5117	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5118
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5119	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5121	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5122	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5123	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5124	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5125	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5126
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5127	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5129	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5130	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5131	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5132	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5133	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5134	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5136	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5137
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5138	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5139	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5140	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5141	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5142	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5143	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5145	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5147	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5148	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5149	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5150	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5151	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5152	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5154	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5156	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5157	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5158
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5159	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5160
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5161	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5162	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5163	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5164	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5165	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5167	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5169	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5170
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5171	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5172	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5173	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5175	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5176
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5177	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5181	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5182	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5183	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5184	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5185	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5186	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5187	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5189	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5191	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5192	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5193	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5196	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5197
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5198	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5199	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5200	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5201
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5202	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5203	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5204
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5205	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5206	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5207	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5208	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5209	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5210
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5211	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5212
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5213	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5214	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5215	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5216	@@@@_$RA@@@@@@@@@@@@@HED_ @@@@@@ U2+UX\@@@@@@@@@@H]U52A@@@@ U9^S-A @@@@@@@HIT.HD4O8D@_%29^#6JZE"B@@@@@HIX-(@9!!&-\_"Z+
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5217	.+QKZ(0@J @@@@@@K5SV2B2XDQ+":,XR5WP8@@@@@BDJ5.+V@.E4KEA46-+5U9TVHRD!!HP<+JKV:-%SG1@Y@R8@WYV)I@A/@@@SH D$@E>KBP-$PUH
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5218	QH60)2U0[$:]KYPJN$RK,JX''[TFW]BB)4Z\K)[Q''L6''GD JZ.HF4UV;H_U6\+)%T7,WDUB3G:^%_E<@WB%RG)8\+*BL(=Q#@(!!R!!2-_P5-@@AUNA!!4
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5219	BGV:.(IQ)I<LQS@R^VE([P@@(E9OZQT/[[*:-9=YO8M''S6B ZF4@@@@@[0@[M0I5.)!!!!(4NE@F<@&$&C@@@@@@@@G&PCBGYV&;@<!!P@@#$^P@@@@@@@@@FN@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5220	[R<#+J2,PHT@%$2E@@@@@@@@@@BEA7>"I;B/''$H%$"I@@@@@@@@@@@@$#D]^RF''F]5$D2I@@@@@@@@@@@@@@BIKB<F(VHIHSNE@@@@@@@@@@@@@@@@@I$>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5221	MVY7@@@@@@@@@@@@@@@@@@@@@@@@!!3Y9@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 7 7 7 12 12 12 20 20 20 23 23 23 24 24 24 28 28 28 30 30 30 32 32 32 35 35 35 40 40 40 41 41 41 43 43 43 45 45 45 48 47 48 50 49 50 51 50 51 52 52 52 54 53 54 55 54 55 56 56 56 58 57 58 58 58 58 59 59 59 60 59 60 60 60 60 61 61 61 62 62 62 66 65 66 66 66 66 67 66 67 68 67 68 69 69 69 70 69 70 70 70 70 71 71 71 72 71 72 73 73 73 74 73 74 75 75 75 76 75 76 76 76 76 77 76 77 78 78 78 79 79 79 80 80 80 85 84 85 86 84 86 86 85 86 87 86 87 87 87 87 88 87 88 89 88 89 89 89 89 90 88 90 90 89 90 93 91 93 93 93 93 94 92 94 94 93 94 96 94 96 97 96 97 98 97 98 99 98 99 99 99 99 100 99 100 100 100 100 102 102 102 103 103 103 104 103 104 104 104 104 105 105 105 106 106 106 108 107 108 109 109 109 110 110 110 111 110 111 113 113 113 114 113 114 114 114 114 115 115 115 116 116 116 117 115 117 118 118 118 120 120 120 121 121 121 122 121 122 122 122 122 123 122 123 123 123 123 124 124 124 125 125 125 127 127 127 128 128 128 129 129 129 130 130 130 131 131 131 132 131 132 132 132 132 133 132 133 134 134 134 135 135 135 136 136 136 137 137 137 138 138 138 140 139 140 142 142 142 147 147 147 151 151 151 153 153 153 154 154 154 155 155 155 156 155 156 156 156 156 159 159 159 164 163 164 165 165 165 167 167 167 168 168 168 170 170 170 172 172 172 174 174 174 175 174 175 177 177 177 178 178 178 181 181 181 182 182 182 183 183 183 185 185 185 189 189 189 190 190 190 191 191 191 192 192 192 194 192 194 194 194 194 195 195 195 196 196 196 198 196 198 199 198 199 200 200 200 201 200 201 201 201 201 202 201 202 202 202 202 203 203 203 204 204 204 205 204 205 205 205 205 206 205 206 206 206 206 209 209 209 210 210 210 211 211 211 212 212 212 213 212 213 213 213 213 214 214 214 215 213 215 215 215 215 216 216 216 217 216 217 217 217 217 218 217 218 219 219 219 221 219 221 222 221 222 224 222 224 224 223 224 225 223 225 225 224 225 225 225 225 226 224 226 226 225 226 227 226 227 228 226 228 229 228 229 231 231 231 232 231 232 235 234 235 237 237 237 239 239 239 241 241 241 244 244 244 247 247 247 248 248 248 255 255 255]; 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 @@G@@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5222	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5223
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5224	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5225
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5226	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5227	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5228	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5229
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5230	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5231	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5232
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5233	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5234	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5235	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5236	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5237	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5238
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5239	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5240
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5241	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5242	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5243	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5244	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5245	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5246	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5247	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5248	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5249	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5250	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5252	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5253	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5254	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5255	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5256	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5257	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5258	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5259	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5260	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5261	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5262	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5263	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5264	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5265	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5266	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5267	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5268	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5269	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5270	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5271	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5272	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5273	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5274	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5275	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5276	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5277	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5278	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5279	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5280	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5281	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5282	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5283	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5284	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5285	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5286	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5287	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5288	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5289	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5290	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5291	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5292	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5293	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5294	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5295
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5296	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5297	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5299	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5300	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5301	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5302	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5303	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5304	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5305	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5306	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5307	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5308	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5309	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5310	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5311	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5312	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5313	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5314	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5315	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5316	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5317	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5318	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5319	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5320	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5321	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5322	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5323	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5324
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5326	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5327	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5328	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5329	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5330	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5331	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5332	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5333	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5334	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5335	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5336	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5337	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5338	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5339	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5340	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5341	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5342
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5343	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5344	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5345	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5346	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5347	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5348	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5349	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5350	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5351	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5352	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5353	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5354	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5355	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5356	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5357	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5358	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5359	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5360	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5361	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5362	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5363	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5364	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5365	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5366	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5367	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5368	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5369	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5370
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5371	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5372	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5373	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5374	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5375
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5376	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5377	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5378	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5379	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5380
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5381	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5382	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5383	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5384
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5385	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5386	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5387	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5388
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5389	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5390
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5391	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5392
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5393	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5394	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5395
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5396	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5397
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5398	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5399	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5400	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5401
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5402	loadRequest
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5403
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5404	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5405	self windowMigrationEnabled value:(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5406	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5407	self windowMigrationPassword value:WindowMigrationServer password.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5408	self windowMigrationAuthenticate value:self windowMigrationPassword value notNil.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5409	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5410	self windowMigrationPassword value:nil.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5411	self windowMigrationAuthenticate value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5412	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5413	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5414	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5415
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5416	saveSettings
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5417
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5418	self hasUnsavedChanges ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5419	self hasRemoteBrowsingSupport ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5420	self remoteBrowsingEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5421	SmalltalkShareServer serverRunning ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5422	SmalltalkShareServer killAll
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5423	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5424	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5425	SmalltalkShareServer serverRunning not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5426	SmalltalkShareServer start.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5427	"/ must wait a bit; give it a chance to
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5428	"/ really start (before checking)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5429	Delay waitForSeconds:0.5.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5430	SmalltalkShareServer serverRunning ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5431	self warn:'SmalltalkShareServer startup failed (see stderr).'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5432	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5433	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5434	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5435	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5436	self hasWindowMigrationServer ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5437	self windowMigrationAuthenticate value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5438	WindowMigrationServer password:self windowMigrationPassword value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5439	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5440	WindowMigrationServer password:nil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5441	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5442	self windowMigrationEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5443	WindowMigrationServer serverRunning ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5444	WindowMigrationServer stop
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5445	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5446	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5447	WindowMigrationServer serverRunning not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5448	WindowMigrationServer start.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5449	"/ must wait a bit; give it a chance to
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5450	"/ really start (before checking)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5451	Delay waitForSeconds:0.5.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5452	WindowMigrationServer serverRunning ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5453	self warn:'WindowMigrationServer startup failed (see stderr).'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5454	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5455	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5456	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5457	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5458	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5459	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5460	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5461
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5462	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5463
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5464	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5465
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5466	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5467	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5468	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5469	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5470	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5471	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5472	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5473	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5474	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5475
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5476	modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5477
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5478	modifiedChannel isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5479	modifiedChannel := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5480	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5481	^ modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5482	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5483
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5484	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5485
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5486	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5487	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5488	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5489	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5490	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5491	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5492
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5493	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5494
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5495	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5496	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5497	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5498	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5499	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5500	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5501
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5502	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5503
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5504	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5505	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5506	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5507	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5508	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5509	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5510
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5511	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5512
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5513	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5514	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5515	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5516	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5517	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5518	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5519
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5520	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5521
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5522	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5523	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5524
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5525	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5526
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5527	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5528	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5529	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5530
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5531	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5532	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5533
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5534	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5535
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5536	initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5537
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5538	resources := self class classResources.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5539	self loadRequest.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5540	super initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5541	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5542
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5543	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5544
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5545	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5546
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5547	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5548	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5549
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5550	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5551
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5552	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5553	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5554	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5555	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5556	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5557	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5558	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5559
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5560	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5561
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5562	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5563	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5564
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5565	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5566
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5567	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5568	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5569	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5570
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5571	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5572	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5573
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5574	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5575	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5576	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5577	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5578	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5579
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5580	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5581
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5582	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5583	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5584	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5585	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5586	@@@@@@LB@ HFA \G@PD@@@@@@@@@@@@@@@LB@ HB@ GA0(J@P@@@@@@@@@@@@LB@ HB@ HBB \IB ,A@@@@@@@@@@LB@ HB@ HB@ 4NB ,OC0DE@@@@@@LB
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5587	@ HB@ HB@ HB@ 8OC0TE@P@@@@@@@0HB@ HB@ HBCQDQC0TEAPHP@AHRD!!HRD!!HRD!!HRD!!HRD!!HAA@HC@@@RD HED1LTEQXVE1 BAPTR@ DC@@@@D!!HBAQLS
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5588	EATVE!!\X@ TED HC@@@@@AHRAPPYFQ([GA0]G TDAAHC@@@@@@@C@0HB@ HB@ HB@!!<MDQDC@@@@@@@@@0LB@ HB@ HB@ H_CQDQ@0@@@@@@@@LC@ HB@ HB
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5589	@ HBCP4QDPL@@@@@@@@C@0HB@ HB@ HB@ 4MDQDC@@@@@@@@@0LB@ HB@ HB@!!<MDQDQ@0@@@@@@@@LC@ HB@ HB@ H_CQDQDPL@@@@@@@@C@0HB@ HB@ HB
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5590	CP4QDQDC@@@@@@@@@0LC@0LC@0LC@0LC@0LC@0@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 88 248 248 248 80 80 80 128 128 128 192 192 192 64 144 136 48 120 112 56 136 128 56 128 120 40 104 96 40 104 104 32 96 96 232 232 232 32 88 88 32 88 80 64 104 104 224 224 224 0 88 128 24 152 192 16 136 184 16 128 168 8 120 160 8 112 152 8 104 144 16 120 152 16 112 144 8 104 136 8 96 128 8 88 120 0 80 112 240 240 240]; 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]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5591	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5592
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5593	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5595	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5596	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5597	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5599	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5600	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5602	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5603	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5604	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5605	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5606	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5608	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5610	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5611	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5612	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5613	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5614	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5615	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5616	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5617	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5618	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5619	#bounds: #(#Rectangle 23 48 533 614)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5620	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5621	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5622	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5623	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5625	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5628	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5629	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5630	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5631	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5632	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5633	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5634	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5635	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5636	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5637	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5638	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5639	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5640	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5644	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5645	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5646	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5647	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5648	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5649	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5650	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5651	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5652	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5653	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5654	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5655	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5656	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5657	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5658	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5659	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5660	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5661	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5662	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5663	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5664	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5665	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5666	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5667	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5668	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5669	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5670	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5671	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5672	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5673	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5674	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5675	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5676	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5677	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5678	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5679	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5680	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5681	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5682	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5683	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5684	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5685	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5686	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5687	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5688	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5690	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5691	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5692	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5693	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5694	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5695	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5696	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5697	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5698	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5699	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5700	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5701	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5702	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5703	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5704	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5705	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5706	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5707	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5708	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5709	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5710	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5711	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5712	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5713	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5714	#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	5715	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5716	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5717	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5718	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5719	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5720	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5721	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5722	#layout: #(#LayoutFrame 0 0 -22 1 200 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5723	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5724	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5725	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5726	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5727	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5728	#layout: #(#LayoutFrame 200 0 -22 1 -5 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5729	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5730	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5731	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5732	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5733	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5734	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5735	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5736	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5737	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5738
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5739	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5740	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5743
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5744	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5745	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5746	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5747	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5749	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5750	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5751	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5753	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5754	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5755	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5756
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5757	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5759	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5761	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5762	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5764	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5765	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5767	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5768	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5769	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5771	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5772	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5773	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5774	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5775	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5777	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5779	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5780	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5781	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5783	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5785	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5786	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5787	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5788
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5789	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5790	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5791	self takeFocus value:StandardSystemView takeFocusWhenMapped .
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5792	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true) .
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5793	self activateOnClick value:(Display activateOnClick:nil).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5794	self opaqueVariablePanelResize value:currentUserPrefs opaqueVariablePanelResizing.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5795	self opaqueTableColumnResize value:currentUserPrefs opaqueTableColumnResizing.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5797	self showAccelerators value:MenuView showAcceleratorKeys.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5798	self modifiedChannel value:false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5799
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5800	"Modified: / 16.12.2002 / 18:08:20 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5801	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5803	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5805	self hasUnsavedChanges ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5806	PopUpView shadows:self shadows value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5807	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5808	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5809	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5810	self newWindowLabelFormat value notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5811	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5812	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5814	Screen allScreens do:[:aDisplay \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5815	aDisplay allViewsDo:[:aView \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5816	\|l\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5818	aView isTopView ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5819	l := aView label.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5820	l notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5821	aView label:(l , ' '); label:l. "/ force a change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5822	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5823	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5824	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5825	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5828	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5829	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5831	currentUserPrefs beepEnabled:self beepEnabled value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5833	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5834	StandardSystemView takeFocusWhenMapped:self takeFocus value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5835	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5836	Screen current activateOnClick:self activateOnClick value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5838	MenuView showAcceleratorKeys:self showAccelerators value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5839	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5840	].
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5841
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5842	"Modified: / 16.12.2002 / 18:06:31 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5843	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5844
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5845	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5847	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5849	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5850	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5851	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5852	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5853	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5854	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5856	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5858	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5859	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5860	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5861	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5862	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5863	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5865	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5867	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5868	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5869	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5870	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5871	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5872	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5873
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5874	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5875
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5876	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5877	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5878	('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	5879	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5880	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5881	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5882
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5883	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5884	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5885	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5886
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5887	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5889	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5890	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5891	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5892	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5893	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5894	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5896	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5898	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5899	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5900	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5901	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5902	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5903
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5904	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5905
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5906	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5907	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5908	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5909	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5910	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5911
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5912	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5913	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5914
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5915	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5916
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5917	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5918	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5919	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5920	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5921	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5922	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5924	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5926	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5927	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5928	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5929	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5930	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5931	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5933	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5934
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5935	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5936	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5937	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5938	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5939	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5940	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5942	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5944	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5945	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5946	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5947	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5948	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5949	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5951	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5953	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5954	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5955	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5956	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5957	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5958	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5960	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5961
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5962	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5963	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5964	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5965	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5966	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5967	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5968
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5969	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5971	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5972	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5974	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5976	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5977	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5978	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5980	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5981	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5982
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5983	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5984
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5985	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5986
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5987	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5988	currentUserPrefs := UserPreferences current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5989	self loadRequest.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5990	super initialize
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5991
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5992	"Modified: / 16.12.2002 / 17:50:59 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5993	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5995	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5996	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5998	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6000	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6001	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6004	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6006	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6007	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6008	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6009
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6010	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6012	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6014	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6015	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6016	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6017	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6018	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6019	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6020	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6021	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6022	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6023	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6024	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6025	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6026	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6027	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6028
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6029	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6030	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6031
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6032	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6033
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6034	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6035	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6036	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6037
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6038	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6039	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6040
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6041	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6042	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6043	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6044	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6045	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6046
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6047	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6048
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6049	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6050	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6051	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6052	@@@@_$RA@@@@@@@@@@@@@HED_ @@@@@@ U2+UX\@@@@@@@@@@H]U52A@@@@ U9^S-A @@@@@@@HIT.HD4O8D@_%29^#6JZE"B@@@@@HIX-(@9!!&-\_"Z+
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6053	.+QKZ(0@J @@@@@@K5SV2B2XDQ+":,XR5WP8@@@@@BDJ5.+V@.E4KEA46-+5U9TVHRD!!HP<+JKV:-%SG1@Y@R8@WYV)I@A/@@@SH D$@E>KBP-$PUH
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6054	QH60)2U0[$:]KYPJN$RK,JX''[TFW]BB)4Z\K)[Q''L6''GD JZ.HF4UV;H_U6\+)%T7,WDUB3G:^%_E<@WB%RG)8\+*BL(=Q#@(!!R!!2-_P5-@@AUNA!!4
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6055	BGV:.(IQ)I<LQS@R^VE([P@@(E9OZQT/[[*:-9=YO8M''S6B ZF4@@@@@[0@[M0I5.)!!!!(4NE@F<@&$&C@@@@@@@@G&PCBGYV&;@<!!P@@#$^P@@@@@@@@@FN@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6056	[R<#+J2,PHT@%$2E@@@@@@@@@@BEA7>"I;B/''$H%$"I@@@@@@@@@@@@$#D]^RF''F]5$D2I@@@@@@@@@@@@@@BIKB<F(VHIHSNE@@@@@@@@@@@@@@@@@I$>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6057	MVY7@@@@@@@@@@@@@@@@@@@@@@@@!!3Y9@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 7 7 7 12 12 12 20 20 20 23 23 23 24 24 24 28 28 28 30 30 30 32 32 32 35 35 35 40 40 40 41 41 41 43 43 43 45 45 45 48 47 48 50 49 50 51 50 51 52 52 52 54 53 54 55 54 55 56 56 56 58 57 58 58 58 58 59 59 59 60 59 60 60 60 60 61 61 61 62 62 62 66 65 66 66 66 66 67 66 67 68 67 68 69 69 69 70 69 70 70 70 70 71 71 71 72 71 72 73 73 73 74 73 74 75 75 75 76 75 76 76 76 76 77 76 77 78 78 78 79 79 79 80 80 80 85 84 85 86 84 86 86 85 86 87 86 87 87 87 87 88 87 88 89 88 89 89 89 89 90 88 90 90 89 90 93 91 93 93 93 93 94 92 94 94 93 94 96 94 96 97 96 97 98 97 98 99 98 99 99 99 99 100 99 100 100 100 100 102 102 102 103 103 103 104 103 104 104 104 104 105 105 105 106 106 106 108 107 108 109 109 109 110 110 110 111 110 111 113 113 113 114 113 114 114 114 114 115 115 115 116 116 116 117 115 117 118 118 118 120 120 120 121 121 121 122 121 122 122 122 122 123 122 123 123 123 123 124 124 124 125 125 125 127 127 127 128 128 128 129 129 129 130 130 130 131 131 131 132 131 132 132 132 132 133 132 133 134 134 134 135 135 135 136 136 136 137 137 137 138 138 138 140 139 140 142 142 142 147 147 147 151 151 151 153 153 153 154 154 154 155 155 155 156 155 156 156 156 156 159 159 159 164 163 164 165 165 165 167 167 167 168 168 168 170 170 170 172 172 172 174 174 174 175 174 175 177 177 177 178 178 178 181 181 181 182 182 182 183 183 183 185 185 185 189 189 189 190 190 190 191 191 191 192 192 192 194 192 194 194 194 194 195 195 195 196 196 196 198 196 198 199 198 199 200 200 200 201 200 201 201 201 201 202 201 202 202 202 202 203 203 203 204 204 204 205 204 205 205 205 205 206 205 206 206 206 206 209 209 209 210 210 210 211 211 211 212 212 212 213 212 213 213 213 213 214 214 214 215 213 215 215 215 215 216 216 216 217 216 217 217 217 217 218 217 218 219 219 219 221 219 221 222 221 222 224 222 224 224 223 224 225 223 225 225 224 225 225 225 225 226 224 226 226 225 226 227 226 227 228 226 228 229 228 229 231 231 231 232 231 232 235 234 235 237 237 237 239 239 239 241 241 241 244 244 244 247 247 247 248 248 248 255 255 255]; 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 @@G@@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6058	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6059
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6060	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6061
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6062	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6063	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6064	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6065
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6066	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6068
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6069	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6070	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6071	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6075	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6076
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6077	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6078	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6079	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6080	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6081	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6084	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6085	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6086	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6087	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6090	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6091	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6092	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	#verticalSpace: 3
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	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6110	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6111	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6112	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6113	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6114	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6115	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6122	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6124	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6126	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6130	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6132	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6137	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6138	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6139	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6140	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6141	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6142	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6143	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6144	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6151	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6152	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6153	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6154	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6155	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6156	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6157	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6158	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6163	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6166	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6168	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6173	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6174	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6175	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6176	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6177	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6178	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6179	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6180	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6181	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6182	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6183	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6184	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6185	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6186	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6187	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6188	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6198	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6199	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6200	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6201	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6202	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6203	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6210	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6212	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6218	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6220	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	#translateLabel: 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	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6228	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	loadRequest
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	self osiACSEDataLogging value:OSI::ACSE dataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6271	self osiROSEResponseLogging value:OSI::ROSE responseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275	self osiCMISEMessageLogging value:OSI::CMISE messageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	saveSettings
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282	self hasUnsavedChanges ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	OSI::ACSE dataLogging:self osiACSEDataLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6293	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6299	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6301	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6303	modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6305	modifiedChannel isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306	modifiedChannel := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6307	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	^ modifiedChannel
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	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6312	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6314	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6319	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6326	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6327
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6330
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6331	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6332	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6333	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6334	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6335
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6336	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6337	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6338	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6339	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6340	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6341	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6342	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6343	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6344
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6345	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6346	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6347
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6348	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6349	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6350	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6351	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6352
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6353	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6354	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6355	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6356	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6357	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6358	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6359	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6360	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6361
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6362	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6363	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6364
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6365	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6366	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6367	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6368	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6369
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6370	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6371	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6372	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6373	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6374	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6375	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6376	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6377	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6378
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6379	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6380	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6381
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6382	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6383	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6384	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6385	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6386
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6387	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6388	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6389	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6390	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6391	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6392	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6393	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6394	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6395
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6396	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6397	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6398
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6399	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6400	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6401	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6402	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6403
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6404	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6405	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6406	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6407	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6408	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6409	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6410	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6411	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6412
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6413	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6414	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6415
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6416	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6417	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6418	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6419	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6420
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6421	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6422	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6423	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6424	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6425	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6426	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6427	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6428	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6429
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6430	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6431	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6432
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6433	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6434	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6435	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6436	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6437
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6438	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6439	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6440	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6441	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6442	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6443	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6444	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6445	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6446
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6447	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6448	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6449
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6450	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6451	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6452	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6453	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6454
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6455	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6456	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6457	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6458	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6459	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6460	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6461	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6462	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6463
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6464	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6465	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6466
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6467	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6468	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6469	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6470	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6471
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6472	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6473	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6474	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6475	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6476	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6477	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6478	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6479	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6480
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6481	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6482	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6483
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6484	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6485	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6486	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6487	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6488
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6489	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6490	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6491	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6492	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6493	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6494	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6495	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6496	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6497
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6498	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6499
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6500	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6501	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6502
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6503	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6504
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6505	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6506	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6507	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6508
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6509	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6510	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6511
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6512	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6513
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6514	initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6515
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6516	resources := self class classResources.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6517	self loadRequest.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6518	super initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6519	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6520
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6521	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6522
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6523	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6524
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6525	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6526	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6527	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6528	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6529	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6530	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6531	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6532	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6533	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6534	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6535	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6536	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6537	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6538
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6539	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6540
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6541	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6542	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6543	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6544
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6545	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6546	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6547
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6548	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6549	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6550	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6551	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6552	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6553
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6554	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6555
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6556	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6557	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6558	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6559	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6560	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6561	@P@@@@@@@@@@@@@@@@D@@@@@@@@@@@D@@PDA@@DA@@DA@@DA@PD@@@@@@@D@@@@@@@@@@@@@@@@AA@DD@P@@@@DA@PDA@PDA@PDA@PDAA@DD@PD@@@DDA@PD
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6562	A@PDA@PDA@PDA@DD@PTA@@@A@PDA@PDA@PDA@PDA@PDA@PTE@P@@@PTEAPTEAPTEAPTB@ HEAPDE@P@@@@DEAPTEAPTEAPTE@ HBAPTA@P@@@@@A@PDA@PDA
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6563	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6564	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 255 255 0 0 0 255 255 0 129 129 129 194 194 194 105 133 190]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6565	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6566
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6567	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6573	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6574	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6576	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6577	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6578	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6579	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6580	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6589	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6590	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6591	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6593	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6594	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6595	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6596	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6597	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6598	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6599	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6600	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6601	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6602	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6603	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6604	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6605	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6606	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6608	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6609	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6610	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6611	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6612	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6613	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6614	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6615	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6616	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6617	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6618	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6619	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6620	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6621	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6622	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6623	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6624	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6625	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6626	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6627	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6628	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6629	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6630	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6631	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6632	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6633	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6634	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6635	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6636	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6637	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6638	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6639	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6640	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6641	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6642	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6643	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6644	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6645	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6646	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6647	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6648
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6649	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6650	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6651	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6652	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6653	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6654	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6655	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6656	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6657	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6658	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6659	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6660	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6661	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6662	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6663	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6664	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6665	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6666	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6667	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6668	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6669	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6670	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6671	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6672	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6673	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6674	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6675	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6676	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6677	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6678	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6679	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6680	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6681	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6682	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6683	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6684	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6685	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6686
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6687	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6688	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6689	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6690	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6691	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6692	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6693	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6694	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6695	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6696	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6697	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6698	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6699	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6700	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6701	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6702	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6703	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6704	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6705	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6706	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6707	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6708	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6709	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6710	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6711	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6712	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6713	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6714	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6715	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6716	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6717	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6718	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6719	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6720	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6721	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6722	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6723	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6724	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6725	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6726	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6727	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6728	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6729	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6730	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6731	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6732	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6733	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6734	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6735	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6736	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6737	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6738
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6739	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6740	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6741	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6742	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6743	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6744	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6745	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6746	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6747	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6748	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6749	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6750	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6751	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6752	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6753	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6754	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6755	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6756	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6757	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6758	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6759	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6760	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6761	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6762	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6763	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6764	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6765	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6766
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6767	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6768	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6769	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6770	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6771	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6772	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6773	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6774	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6775	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6776	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6777	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6778	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6779	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6780	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6781	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6782	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6783	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6784	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6785	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6786	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6787	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6788	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6789	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6790	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6791	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6792	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6793	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6794
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6795	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6796	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6797	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6798	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6799	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6800	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6801	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6802	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6803	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6804	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6805	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6806	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6807	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6808	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6809	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6810	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6811	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6812	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6813	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6814	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6815	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6816	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6817	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6818	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6819	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6820	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6821	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6822
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6823	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6824	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6825	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6826	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6827
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6828	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6829	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6830	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6831	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6832	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6833	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6834	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6835
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6836	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6837	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6838	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6839	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6840	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6841	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6842	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6843	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6844	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6845	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6846	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6847	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6848	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6849	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6850	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6851	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6852	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6853
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6854	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6855	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6856	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6857	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6859	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6860	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6861	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6862
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6863	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6864	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6865	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6867	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6869	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6871	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6872	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6874	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6876	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6877	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6878	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6880	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6881
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6882	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6883	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6884	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6885	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6886	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6887	self printCommand value:Printer printCommand.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6888	self printerTypeSelection value:(possiblePrinters identityIndexOf:Printer).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6889	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6890	self pageFormatList notEmpty ifTrue:[
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6891	self pageFormat value:Printer pageFormat.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6892	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6893	self printerTypeSelectionOrUnitListChanged.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6894	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6895	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6897	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6898
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6899	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6900	Printer := possiblePrinters at:(self printerTypeSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6901	Printer printCommand:self printCommand value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6903	Printer supportsPageSizes ifTrue:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6904	Printer pageFormat:(self pageFormat value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6905	Printer landscape:(self landscape value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6906	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6907	Printer supportsMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6908	\| unit \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6909	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6910	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6911	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6912	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6913	].
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6914	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6915	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6916	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6917	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6918	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6919	Printer supportsPostscript ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6920	Printer supportsColor:self supportsColor value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6921	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6922	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6924	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6926	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6928	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6930	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6931	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6932	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6933	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6934	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6935	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6937	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6939	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6940	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6941	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6942	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6943	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6944
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6945	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6947	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6948	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6949	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6950	^ enableFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6951	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6953	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6955	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6956	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6957	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6958	^ enableMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6959	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6961	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6963	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6964	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6965	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6966	^ enablelandscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6967	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6969	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6971	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6972	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6973	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6974	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6975	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6976	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6978	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6980	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6981	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6982	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6983	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6984	^ leftMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6985	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6987	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6988
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6989	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6990	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6991	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6992	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6993	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6995	pageFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6997	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6998	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6999	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7000	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7001	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7002	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7003	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7004	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7005	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7006	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7007	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7008	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7009	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7011	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7013	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7014	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7015	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7016	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7017	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7019	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7021	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7022	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7023	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7024	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7025	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7026	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7028	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7030	printCommandList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7031	printCommandList := commandList asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7032	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7033	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7034	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7036	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7038	printerType isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7039	printerType := (possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7040	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7041	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7042	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7043	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7045	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7047	printerTypeSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7048	printerTypeSelection := (possiblePrinters identityIndexOf:Printer) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7049	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7050	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7051	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7052	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7053	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7054	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7055	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7056
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7057	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7058
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7059	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7060	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7061	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7062	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7063	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7064	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7065
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7066	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7068	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7069	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7070	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7071	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7072	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7073	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7074	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7075	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7077	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7078
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7079	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7080	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7081	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7082	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7083	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7084	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7086	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7088	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7089	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7090	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7091	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7092	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7093	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7094
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7095	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7097	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7098	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7099	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7100	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7101	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7103	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7105	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7107	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7108	self printerType selectionIndex ~~ 0 ifTrue:[
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7109	p := possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7110	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7111	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7112	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7113	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7114	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7115	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7116	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7118	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7120	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7121
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7122	self printerTypeSelection value ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7123	p := possiblePrinters at:(self printerTypeSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7124	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7125	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7126	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7127	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7128	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7129	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7130	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7131	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7132	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7133	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7134	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7135	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7136	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7137	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7138	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7139	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7140	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7141	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7142	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7143	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7144
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7145	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7146	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7147	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7148	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7149
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7150	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7151	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7152	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7154	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7155	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7156	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7157	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7158	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7159	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7160	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7161	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7162	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7163	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7164	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7165	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7166	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7167	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7168	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7169	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7171	unitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7172	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7174	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7175	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7176
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7177	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7178
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7179	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7180	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7181	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7182	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7183
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7184	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7185	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7187	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7189	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7190
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7191	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7192	possiblePrinters := PrinterStream withAllSubclasses asArray.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7193	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7194	commandList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7195	commandList := PrinterStream defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7196	commandList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7197	commandList := #('lpr'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7198	'lp'
4328 a60a893cac97 * empty log message * penk parents: 4327 diff changeset	7199	) asOrderedCollection.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7200	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7201	(commandList includes:self printCommand value) not ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7202	commandList add:self printCommand value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7203	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7204	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7205	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7206	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7208	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7209	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7211	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7213	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7214	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7215	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7217	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7219	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7220	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7221	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7223	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7225	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7228	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7229	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7230	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7231	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7232	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7233	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7234	printer := possiblePrinters at:(self printerTypeSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7235	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7236	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7237	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7238	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7239	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7240	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7241	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7242	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	7243	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	7244	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	7245	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	7246	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7247	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7248	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7249	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7250	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7251	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7252	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7253
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7254	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7255
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7256	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7257	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7258	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7259
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7260	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7261	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7262
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7263	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7264	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7265	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7266	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7267	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7268
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7269	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7270
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7271	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7272	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7273	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7274	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7275	@@@C@ PDA@PA@PPDA@PB@0@@@@@@@@@C@ PDA@PDA@PDA@PDA@HC@@@@@@@C@ PDA@PDA@PDA@PDA@PD@ L@@@@@@0HDA@PDA@PDA@PDA@PDA@HC@@@@@@LB
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7276	A@PDA@PDA@PD@PPDA@PB@0@@@@LBA@PDA@PDA@PD@PPDA@PDA@HC@@@C@ PDA@PDA@PA@PPDA@PDA@PB@0@@@0HDA@PDA@PD@PDDA@PDA@PD@ L@@@LBA@PD
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7277	A@PDA@PD@PPDA@PDA@HC@@@@@0HDA@PDA@PDA@PAA@PDA@HC@@@@@@LBA@PDA@PDA@PDA@DDA@PB@0@@@@@C@ PDA@PDA@PDA@PD@PPD@ L@@@@@@@LBA@PD
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7278	A@PDA@PDA@PD@ L@@@@@@@@@@0HDA@PDA@PDA@PD@ L@@@@@@@@@@@@C@ HBA@PDA@HB@ L@@@@@@@@@@@@@@@LC@0HB@ HC@0L@@@@@@@@@@@@@@@@@@@@C
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7279	@0LC@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 128 128 128 128 128 192 192 192 255 255 255]; 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]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7280	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7281
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7282	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7283
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7284	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7285	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7286	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7287
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7288	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7289	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7290
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7291	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7292	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7293	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7294	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7295	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7296
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7297	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7298
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7299	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7300	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7301	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7302	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7303	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7304	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7305	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7306	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7307	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7308	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7309	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7310	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7311	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7312	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7313	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7314	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7315	#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	7316	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7317	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7318	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7319	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7320	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7321	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7322	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7323	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7324	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7325	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7326	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7327	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7328	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7329	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7330	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7331	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7332	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7333	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7334	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7335	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7336	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7337	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7338	#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	7339	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7340	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7341	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7342	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7343	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7345	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7346	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7347	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7348	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7349
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7350	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7351	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7352	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7353
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7354	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7355	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7356	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7357
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7358	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7359
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7360	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7361
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7362	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7363	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7364
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7365	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7366
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7367	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7368	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7369	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7370
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7371	loadRequest
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7372
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7373	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7374	self dynamicPrios value:Processor supportDynamicPriorities.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7375	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7376	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7377
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7378	saveSettings
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7379
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7380	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7381	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7382	self preemptive value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7383	Processor startTimeSlicing
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7384	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7385	Processor stopTimeSlicing
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7386	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7387	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7388	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7389	Processor supportDynamicPriorities:self dynamicPrios value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7390	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7391	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7392	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7393	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7394
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7395	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7396
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7397	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7398	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7399
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7400	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7401	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7402	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7403	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7404
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7405	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7406	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7407	"/ 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	7408	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7409	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7410	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7411	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7412	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7413
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7414	modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7415
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7416	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7417	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7418	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7419	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7420	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7421
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7422	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7423	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7424
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7425	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7426	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7427	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7428	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7429
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7430	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7431	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7432	"/ 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	7433	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7434	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7435	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7436	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7437	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7438
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7439	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7440
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7441	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7442	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7443
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7444	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7445
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7446	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7447	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7448	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7449
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7450	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7451	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7452
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7453	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7454
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7455	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7456
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7457	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7458	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7459	super initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7460	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7461
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7462	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7463
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7464	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7465
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7466	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7467	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7468	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7469	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7470	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7471
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7472	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7473
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7474	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7475	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7476	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7477
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7478	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7479	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7480
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7481	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7482	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7483	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7484	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7485	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7486
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7487	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7488
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7489	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7490	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7491	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7492	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7493	@B (JB (JB (JB (JB (JB\''@@@@@@@(JA@ZFA YE@,KC@,KA0P''I1T@@@@@JB RH2D!!HRD HA(MCP\DI2\U@@@@@B (GRT#H2D"H2L^C0<HAB\''EP@@@@@(
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7494	JA4%H2L!!H"L#G <OB@P''I1T@@@@@JB ZH2H"H"H)JP@@E!!XWJ"\U@@@@@B (C!!$"H"$)JR,)@@@@E2X''EP@@@@@(JA@WH"$+@B$,@B0)JP@&I1T@@@@@JB P
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7495	E1 )KB,,J20+JR$@I"\U@@@@@B (A!!DXJR,,JP@+J @@@BX''EP@@@@@''I2\''JR,,JR0)@B,,JR$@I1T@@@@@I2\''I2$,J2$+JP@,J2$)@B\U@@@@@@@@EQTB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7496	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7497	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 60 78 83 61 77 82 63 79 84 63 81 86 66 83 87 66 84 89 66 85 91 67 86 92 68 86 91 69 87 92 69 88 94 70 90 95 71 91 96 71 92 98 72 93 99 73 94 100 74 92 97 74 95 101 75 93 98 75 96 102 76 76 76 76 97 103 77 98 104 77 99 106 79 101 108 80 103 109 81 104 110 82 105 111 83 106 112 83 107 114 86 110 117 87 111 118 88 113 121 89 114 122 90 116 123 91 117 124 92 118 125 126 126 126 127 127 127 139 139 139 131 129 0 131 129 131 255 255 0 255 255 255]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7498	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7499
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7500	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7501
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7502	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7503	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7504	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7505
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7506	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7507	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7508
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7509	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7510	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7511	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7512	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7513	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7514
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7515	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7516
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7517	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7518	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7519	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7520	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7521	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7522	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7523	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7524	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7525	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7526	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7527	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7528	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7529	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7530	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7531	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7532	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7533	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7534	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7535	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7536	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7537	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7538	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7539	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7540	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7541	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7542	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7543	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7544	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7545	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7546	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7547	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7548	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7549	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7550	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7551	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7552	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7553	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7554	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7555	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7556	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7557	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7558	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7559	#enableChannel: #hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7560	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7561	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7562	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7563	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7564
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7565	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7566	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7567	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7568	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7569	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7570	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7571	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7572	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7573	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7574	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7575	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7576	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7577	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7578	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7579	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7580	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7581	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7582	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7583	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7584	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7585	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7586	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7587	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7588	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7589	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7590	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7591	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7592
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7593	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7594	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7595	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7596	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7597	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7598	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7599	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7600	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7601	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7602	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7603	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7604	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7605	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7606	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7607	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7608	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7609	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7610
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7611	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7612	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7613	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7614	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7615	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7616	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7617	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7618	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7619	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7620	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7621	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7622	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7623	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7624	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7625	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7626	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7627	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7628
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7629	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7630	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7631	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7632	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7633	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7634	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7635	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7636	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7637	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7638	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7639	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7640	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7641	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7642	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7643	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7644	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7645	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7646
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7647	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7648	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7649	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7650	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7651
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7652	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7653	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7654	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7655	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7656
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7657	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7658	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7659	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7660
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7661	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7662	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7663	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7664
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7665	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7666
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7667	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7668
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7669	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7670	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7671
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7672	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7673
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7674	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7675	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7676	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7677
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7678	loadRequest
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7679
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7680	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7681	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7682	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7683	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7684	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7685	self rDoitServerPort value:RDoItServer defaultPortNumber.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7686	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7687	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7688	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7689	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7690	self rDoitErrorDebugging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7691	self rDoitServerPort value:nil.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7692	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7693	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7694	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7695
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7696	saveSettings
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7697
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7698	\|rDoits\|
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7699
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7700	self hasUnsavedChanges ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7701	RDoItServer defaultPortNumber:self rDoitServerPort value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7702	RDoItServer logging:self rDoitLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7703	RDoItServer errorLogging:self rDoitErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7704	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7705	rDoits := self rDoitsEnabled value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7706	rDoits ~~ RDoItServer serverRunning ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7707	rDoits ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7708	RDoItServer stop
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7709	] ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7710	RDoItServer start.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7711	"/ must wait a bit; give it a chance to
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7712	"/ really start (before checking)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7713	Delay waitForSeconds:0.5.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7714	RDoItServer serverRunning ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7715	self warn:'RDoit startup failed (see stderr).'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7716	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7717	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7718	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7719	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7720	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7721	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7722
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7723	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7724
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7725	modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7726
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7727	modifiedChannel isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7728	modifiedChannel := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7729	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7730	^ modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7731	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7732
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7733	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7734
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7735	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7736	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7737	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7738	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7739	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7740	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7741
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7742	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7743
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7744	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7745	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7746	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7747	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7748	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7749	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7750
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7751	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7752
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7753	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7754	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7755	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7756	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7757	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7758	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7759
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7760	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7761
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7762	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7763	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7764	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7765	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7766	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7767	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7768
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7769	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7770
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7771	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7772	rDoitsEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7773	rDoitsEnabled onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7774	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7775	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7776	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7777
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7778	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7779
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7780	rDoitsEnabledChanged
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7781
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7782	self rDoitsEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7783	RDoItServer isLoaded ifFalse:[RDoItServer autoload].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7784	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7785	rDoitServerPort value:(RDoItServer defaultPortNumber).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7786	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7787	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7788	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7789
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7790	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7791	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7792
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7793	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7794
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7795	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7796	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7797	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7798	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7799
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7800	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7801	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7802
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7803	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7804
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7805	initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7806
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7807	resources := self class classResources.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7808	self loadRequest.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7809	super initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7810	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7811
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7812	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7813	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7814
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7815	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7816
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7817	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7818	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7819	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7820
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7821	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7822
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7823	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7824	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7825	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7826
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7827	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7828
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7829	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7830
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7831	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7832	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7833
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7834	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7835
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7836	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7837	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7838	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7839	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7840	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7841	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7842	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7843	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7844	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7845	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7846	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7847	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7848
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7849	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7850
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7851	stcCompilationDemoStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7852
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7853	^ #('never')
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	stcCompilationFullVersionStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861	stcCompilationOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7864	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7867
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7868	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7869	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7870	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7873	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7877	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7878	Icon flushCachedIcons
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7881	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7882
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7883	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7884	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7885	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7886	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7887	@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@A@PDA@@DA@P@A@PDA@@DA@P@@@ @@@P@@@P@A@@D@@P@@@P@A@@D@@@H@@@DA@PD@@PDA@@DA@PD@@PDA@@@B@@@@
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7888	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PDA@PD@@@H@@@DA@@@@@P@@@@@@@P@@@@DA@@@B@@@A@@DA@PDA@P@A@P@A@PD@@P@@@ @@@P@A
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7889	@PDA@PD@@PD@@PDA@PD@@@H@@@DA@@@A@PDA@@DA@@DA@PDA@@@B@@@A@PDA@@DA@P@A@P@A@PDA@P@@@ @@@PDA@P@A@PD@@PD@@PDA@@D@@@H@@@D@@@@A
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7890	@PDA@@DA@P@@@@DA@@@B@@@A@PDA@PDA@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7891	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 0]; 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]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7892	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7893
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7894	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7895
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7896	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7897	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7898	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7899
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7900	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7901	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7902
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7903	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7904	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7905	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7906	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7907	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7908
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7909	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7910
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7911	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7912	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7913	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7914	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7915	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7916	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7917	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7918	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7919	#max: #(#Point 1024 768)
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7920	#bounds: #(#Rectangle 16 46 616 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7921	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7922	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7923	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7924	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7925	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7926	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7927	#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	7928	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7929	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7930	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7931	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7932	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7933	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7934	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7935	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7936	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7937	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7938	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7939	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7940	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7941	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7942	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7943	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7944	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7945	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7946	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7947	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7948	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7949	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7950	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7951	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7952	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7953	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7954	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7955	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7956	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7957	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7958
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7959	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7960	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7961	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7962	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7963	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7964	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7965	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7966	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7967	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7968	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7969	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7970	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7971	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7972	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7973	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7974	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7975	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7976	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7977	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7978	#model: #stc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7979	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7980	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7981	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7982	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7983	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7984	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7985
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7986	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7987	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7988	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7989	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7990	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7991	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7992	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7993	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7994	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7995	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7996	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7997	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7998	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7999	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8000	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8001	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8002	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8003	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8004	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8005	#model: #stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8006	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8007	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8008	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8009	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8010	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8011	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8012
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8013	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8014	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8015	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8016	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8017	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8018	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8019	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8020	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8021	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8022	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8023	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8024	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8025	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8026	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8027	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8028	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8029	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8030	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8031	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8032	#model: #cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8033	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8034	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8035	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8036	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8037	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8038	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8039
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8040	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8041	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8042	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8043	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8044	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8045	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8046	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8047	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8048	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8049	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8050	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8051	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8052	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8053	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8054	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8055	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8056	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8057	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8058	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8059	#model: #ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8060	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8061	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8062	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8063	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8064	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8065	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8066
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8067	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8068	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8069	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8070	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8071	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8072	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8073	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8074	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8075	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8076	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8077	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8078	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8079	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8080	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8081	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8082	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8083	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8084	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8085	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8086	#model: #stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8087	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8088	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8089	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8090	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8091	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8092	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8093
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8094	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8095	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8096	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8097	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8098	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8099	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8100	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8101	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8102	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8103	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8104	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8105	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8106	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8107	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8108	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8109	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8110	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8111	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8112	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8113	#model: #stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8114	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8115	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8116	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8117	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8118	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8119	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8120
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8121	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8122	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8123	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8124	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8125	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8126	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8127	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8128	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8129	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8130	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8131	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8132	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8133	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8134	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8135	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8136	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8137	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8138	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8139	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8140	#model: #linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8141	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8142	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8143	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8144	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8145	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8146	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8147
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8148	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8149	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8150	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8151	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8152	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8153	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8154	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8155	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8156	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8157	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8158	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8159	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8160	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8161	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8162	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8163	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8164	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8165	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8166	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8167	#model: #linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8168	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8169	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8170	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8171	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8172	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8173	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8174
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8175	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8176	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8177	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8178	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8179	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8180	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8181	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8182	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8183	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8184	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8185	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8186	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8187	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8188	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8189	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8190	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8191	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8192	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8193	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8194	#model: #stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8195	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8196	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8197	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8198	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8199	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8200	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8201
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8202	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8203	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8204	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8205	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8206	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8207	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8208	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8209	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8210	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8211	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8212	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8213	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8214	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8215	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8216	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8217	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8218	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	8219	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8220	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8221	#model: #stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8222	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8223	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8224	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8225	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8226	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8227	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8228
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8229	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8230	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8231	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8232	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8233
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8234	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8235	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8236	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8237
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8238	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8239	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8240	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8241
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8242	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8243
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8244	evaluateModified
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8245
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8246	self modifiedChannel value:(self hasUnsavedChanges).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8247	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8248
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8249	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8250
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8251	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8252	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8253	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8254
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8255	loadRequest
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8256
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8257	self canLoadBinaries value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8258	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8259	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8260	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8261	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8262
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8263	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8264	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8265	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8266	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8267	ObjectFileLoader notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8268	\| t \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8269	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8270	self stcLibraries value:(String fromStringCollection:t separatedBy:' ').
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8271	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8272	(t := ObjectFileLoader libPath) notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8273	self stcLibraryPath value:t.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8274	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8275	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8276	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8277	self stcCompilationSelection value:(self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8278	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8279	self stcCompilationSelection value:2.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8280	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8281
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8282
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8283	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8284	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8285
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8286	saveSettings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8287
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8288	self hasUnsavedChanges ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8289	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8290	Compiler stcCompilationIncludes:self stcIncludes value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8291	Compiler stcCompilationDefines:self stcDefines value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8292	Compiler stcCompilationOptions:self stcOptions value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8293	Compiler ccCompilationOptions:self ccOptions value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8294	Compiler ccPath:self cc value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8295	self stc value ~= Compiler stcPath ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8296	Compiler stcPath:self stc value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8297	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8298	ObjectFileLoader linkCommand:self linkCommand value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8299	ObjectFileLoader linkArgs:self linkArgs value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8300	ObjectFileLoader notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8301	self stcLibraries value notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8302	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8303	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8304	stcLibraryPath notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8305	ObjectFileLoader libPath:(self stcLibraryPath value).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8306	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8307	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8308	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8309	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8310	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8311
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8312	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8313
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8314	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8315
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8316	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8317	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8318	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8319	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8320	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8321
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8322	cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8323
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8324	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8325	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8326	cc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8327	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8328	^ cc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8329	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8330
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8331	ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8332
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8333	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8334	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8335	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8336	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8337	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8338	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8339
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8340	enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8341
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8342	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8343	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8344
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8345	linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8346
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8347	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8348	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8349	linkArgs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8350	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8351	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8352	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8353
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8354	linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8355
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8356	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8357	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8358	linkCommand onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8359	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8360	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8361	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8362
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8363	modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8364
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8365	modifiedChannel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8366	modifiedChannel := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8367	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8368	^ modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8369	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8370
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8371	stc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8372
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8373	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8374	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8375	stc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8376	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8377	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8378	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8379
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8380	stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8381
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8382	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8383	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8384	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8385	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8386	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8387	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8388	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8389	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8390	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8391
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8392	stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8393
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8394	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8395	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8396	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8397	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8398	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8399	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8400	stcCompilationSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8401	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8402	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8403	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8404
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8405	stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8406
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8407	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8408	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8409	stcDefines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8410	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8411	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8412	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8413
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8414	stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8415
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8416	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8417	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8418	stcIncludes onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8419	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8420	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8421	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8422
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8423	stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8424
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8425	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8426	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8427	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8428	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8429	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8430	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8431
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8432	stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8433
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8434	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8435	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8436	stcLibraryPath onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8437	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8438	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8439	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8440
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8441	stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8442
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8443	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8444	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8445	stcOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8446	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8447	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8448	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8449
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8450	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'change & update'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8451
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8452	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8453	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8454
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8455	"stub code automatically generated - please change as required"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8456
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8457	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8458	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8459	"/ ].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8460
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8461	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8462	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8463
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8464	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'initialization & release'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8465
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8466	initialize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8467
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8468	resources := self class classResources.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8469	self loadRequest.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8470	super initialize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8471	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8472
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8473	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8474
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8475	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8476
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8477	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8478	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8479	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8480	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8481	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8482	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8483	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8484	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8485	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8486	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8487	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8488	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8489	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8490	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8491	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8492	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8493	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8494	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8495	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8496	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8497	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8498	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8499	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8500
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8501	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8502
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8503	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8504	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	8505
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8506	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8507
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8508	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8509
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8510	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8511	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8512	some stupid code to show the current settings"
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	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8515
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8516	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8517	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8518	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8519	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8520	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8522	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8523	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8524	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8525	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8526	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8527	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8528	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8529	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8530	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8531	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8532	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8533	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8534	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8535	Transcript showCR:''hello''. "/ looping
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	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8538	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8539	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8540	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8541	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8542	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8543	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8544	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8545	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8546	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8547	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8548	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8549	'.
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8553
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8554	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8555	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8556	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8557
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8558	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8559	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8560
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8561	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8562	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8563	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8564	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8565	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8566
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8567	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8568
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8569	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8571	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8573	@@(JBP$IBP$FBP$IBP$IAPTE@0L@@@@JB $IBP$IA $IBP$IBPTEAPLC@@@@B (FA XFA XFA XFA TE@0LC@0@@@@(JBP$IBP$FBP$IAPTE@0LC@0P@@@@J
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8574	B $IBP$IA $IAPTE@0LC@0PK@@@@B (IBP$IBPXIBPTEAPLC@0LDB0@@@@(JA XFA XFA TH@0LC@0PD@ @@@@@JB $IBP$I@@ HB@LC@0PB@ @@@@@@B (I
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8575	BP$IBPXHB@ HB@ K@PD@@@@@@@(JA XFA @HB@ HB@ F@@DA@@@@@@@JB XFA X@B@ HB@ FA @A@P@@@@@@B (IBP$I@P HB@XFA (I@PD@@@@@@@(JBP$I
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8576	@PHKA XJBP$IBPDA@@@@@@@JB @@@@D@@@@@@@@@@@@A@P@@@@@@B (@@@D@@@@@@@@@@@@@@PD@@@@@@@(JBP$IBP$@BP$IBP$IBPDA@@@@@@HA@PDA@PDA
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8577	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 255 128 0 192 88 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255 220 220 220 64 0 0]; 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]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8578	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8582	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8583	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8584	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8586	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8587	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8588
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8589	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8590	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8592	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8593	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8594
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8595	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8596
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8597	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8598	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8599	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8600	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8601	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8602	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8603	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8604	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8605	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8606	#bounds: #(#Rectangle 12 22 616 698)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8607	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8608	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8609	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8610	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8611	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8612	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8613	#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	8614	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8615	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8616	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8617	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8618	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8619	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8620	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8621	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8622	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8623	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8624	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8625	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8626	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8627	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8628	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8629	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8630	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8631	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8632	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8633	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8634	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8635	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8636	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8637	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8638	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8639	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8640	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8641	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8642	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8643	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8644	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8645	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8646	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8647	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8648	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8649	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8650	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8651	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8652	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8653	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8654	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8655	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8656	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8657	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8658	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8659	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8660
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8661	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8662	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8663	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8664	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8665	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8666	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8667	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8668	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8669	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8670	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8671	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8672	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8673	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8674	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8675	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8676	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8677	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8678	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8679	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8680	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8681	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8682	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8683	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8684	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8685	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8686	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8687	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8688	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8689	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8690	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8691	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8692	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8693
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8694	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8695	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8696	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8697	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8698	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8699	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8700	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8701	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8702	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8703	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8704	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8705	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8706	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8707	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8708	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8709	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8710	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8711	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8712	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8713	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8714	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8715	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8716	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8717
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8718	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8719	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8720	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8721	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8722	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8723	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8724	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8725	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8726	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8727	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8728	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8729	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8730	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8731	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8732	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8733	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8734	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8735	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8736	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8737	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8738	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8739	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8740	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8741
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8742	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8743	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8744	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8745	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8746	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8747	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8748	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8749	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8750	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8751	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8752	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8753	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8754	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8755	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8756	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8757	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8758	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8759	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8760	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8761	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8762	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8763	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8764	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8765	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8766	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8767	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8768	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8769	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8770	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8771	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8772	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8773	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8774	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8775	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8776	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8777	#model: #maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8778	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8779	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8780	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8781	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8782	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8783	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8784
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8785	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8786	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8787	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8788	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8789	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8790	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8791	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8792	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8793	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8794	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8795	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8796	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8797	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8798	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8799	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8800	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8801	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8802	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8803	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8804	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8806	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8807	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8808	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8809	#extent: #(#Point 293 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8810	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8811	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8812
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8813	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8814	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8815	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8816	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8817
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8818	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8819	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8820	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8821	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8824	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8825	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8826	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8827
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8828	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8829	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8830	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8831
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8832	)
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8837
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8838	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8839
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8840	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8841	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8842
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8843	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8845	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	8846	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8847	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8848
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8849	loadRequest
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8850
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8851	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8852	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8853	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8854	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8855	self emptyLineAfterTemporaries value:RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8856	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8857	self spaceAfterKeywordSelector value:RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8858	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8859	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8860	self maxLengthForSingleLineBlocks value:RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8861	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8862	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8863	self reformat.
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	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8867
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8868	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8869	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8870	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8871
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8872	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8873	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8874	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8875	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8876	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8877	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8878	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8879	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8880	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8881	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8882	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8883	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8884
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8885	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8886	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8887	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8888	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8889	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8890	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8891	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8892	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8893	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8894
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8895	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8896	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8897	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8898	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8899	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8900	self error:'No parent for node'.
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	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8903	self editorText value:tree printString.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8904
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8905	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8906	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8907	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8908	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8909	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8910	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8911	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8912	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8913	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8914	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8915	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8916
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8917	resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8918
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8919	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8920	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8921	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8922	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8923	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8924	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8925	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8926	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8927	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8928	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8929	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8930	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8931
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8932	resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8933
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8934	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8935	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8936	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8937	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8938	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8939	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8940	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8941	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8942	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8943	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8944	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8945	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8946
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8947	saveSettings
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8948
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8949	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8950	currentUserPrefs autoFormatting:self autoFormat value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8951	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8952	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8953	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8954	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8955	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8956	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8957	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8958	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8959	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8960	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8961	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8962	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8963	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8964	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8965	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8966	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8967	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8968	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8969	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8970	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8971
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8972	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8974	autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8975
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8976	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8977	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8978	autoFormat onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8979	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8980	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8981	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8982
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8983	blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8984
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8985	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8986	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8987	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8988	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8989	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8990	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8991
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8992	cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8993
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8994	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8995	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8996	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8997	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8998	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8999	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9001	editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9002
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9003	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9004	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9005	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9006	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9007	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9008
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9009	emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9010
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9011	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9012	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9013	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9014	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9015	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9016	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9017
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9018	maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9019
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9020	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9021	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9022	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9023	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9024	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9025	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9026
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9027	modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9028
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9029	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9030	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9031	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9032	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9033	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9034
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9035	spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9036
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9037	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9038	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9039	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9040	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9041	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9042	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9043
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9044	spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9045
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9046	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9047	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9048	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9049	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9050	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9051	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9052
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9053	spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9054
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9055	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9056	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9057	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9058	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9059	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9060	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9061
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9062	tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9063
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9064	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9065	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9066	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9067	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9068	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9069	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9070
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9071	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9072
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9073	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9074	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9075
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9076	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9078	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9079	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9080	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9081	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9082	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9083	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9084	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9085	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9086	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9087	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9088	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9089	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9090	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9091	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9092	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9093
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9094	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9095
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9096	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9098	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9099	RBFormatter isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9100	^ self warn:'Sorry, no RBFormatter class'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9101	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9102
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9103	RBFormatter isLoaded ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9104	WindowGroup activeGroup withWaitCursorDo:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9105	RBFormatter autoload
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9106	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9107	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9108	currentUserPrefs := UserPreferences current.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9109	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9110	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9111	super initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9112	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9113
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9114	postBuildTextEditor:aWidget
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9115
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9116	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9117	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9118	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9120	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9121
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9122	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9123
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9124	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9125	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9126	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9127	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9128	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9131	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9132	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9133	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9134	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9135	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9136	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9137
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9138	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9139
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9140	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9141	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9142	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9143
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9144	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9145	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9146
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9147	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9148	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9149	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9150	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9151	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9153	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9154
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9155	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9156	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9157	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9158	@@@@@@@@@@@TEA@PD00F@@@@@@@@@@@@@@@@@A@YMT]AN"(/J1DO@@@@@@@@@@@@@A@"RDL.GQ@EAAHFDP @@@@@@@@@@@@YR$@.LPXF@@@@@@XHA @@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9159	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9160	Q#\(I3)EGP$@@@@AA0@@@@@@@@X&HRP_JCT]E X@@@@AOS@M@@@@@@@@A"X^IC\]E X@@@@AP#X;K@\@@@@@@@@FH2\]E X@@@@AQCX)LC00B @@@@@@@@X&
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9161	F X@@@@AP#X%EQ,0OB0G@@@@@@@@A P@@@@[OSX,KA,[F3@8F0L@@@@@@@@@@@@@@PDA@S$)L!!TA@PDA@@@@@@@@@@@@@@@@@@D<KCPU@@@@@@@@@P@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9162	@@@@@@@AOR$2B @@@@@@@@DA@@@@@@@@@@@AO3X,K@H@@@@@@@@@@PDA@@@@@@DAO3,,L@\@@@@@@@@@@@@CEPLM@PD9O3,2LA,C@@@@@@@@@@@@@@DMLCX9
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9163	OSP,L LA@@@@@@@@@@@@@@@@@@LGCQTUCPD@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 0 1 8 0 10 10 10 16 24 0 17 36 5 20 20 0 20 20 20 20 42 9 22 49 12 23 23 27 25 44 11 26 51 13 27 27 27 27 62 15 28 63 16 28 69 18 30 73 23 33 33 6 33 59 20 33 80 23 34 34 34 37 96 34 40 73 25 41 108 39 42 115 47 43 86 35 44 44 44 44 127 57 44 129 58 47 141 67 47 160 87 49 158 82 50 166 92 50 168 93 51 127 58 51 179 100 52 52 52 54 109 47 55 136 67 58 146 76 59 59 59 61 143 75 65 112 54 67 67 67 70 145 79 70 182 112 71 125 64 74 74 74 80 133 74 82 82 82 85 189 122 94 94 94 100 194 131 106 106 106 108 196 133 114 114 114 121 121 121 125 203 143 130 130 130 139 139 139 162 162 162 163 218 174 175 175 175 178 224 184 184 227 189 188 188 188 190 229 193 202 202 202 204 234 204 212 244 212 216 240 214 221 242 219 224 243 221 227 244 225]; 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]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9164	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9165
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9166	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9168	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9169	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9170	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9172	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9173	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9174
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9175	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9176	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9177	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9178	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9179	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9180
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9181	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9183	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9184	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9185	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9186	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9187	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9188	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9189	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9190	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9191	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9192	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9193	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9194	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9195	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9196	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9197	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9198	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9199	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9200	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9201	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9202	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9203	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9204	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9205	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9206	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9207	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9208	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9209	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9210	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9211	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9212	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9213	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9214	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9215	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9216	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9217	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9218	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9219	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9220	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9221	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9222	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9223	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9224	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9225	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9226	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9227	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9228	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9229	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9230
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9231	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9232	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9233	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9234	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9235	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9236	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9237	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9238	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9239	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9240	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9241	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9242	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9243	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9244	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9245	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9246	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9247	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9248	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9249	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9250	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9251	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9252	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9253	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9254	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9255	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9256	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9257	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9258	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9259	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9260	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9261	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9262	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9263	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9264	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9265	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9266
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9267	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9268	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9269	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9270	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9271	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9272	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9273	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9274	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9275	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9276	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9277	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9278	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9279	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9280	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9281	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9282	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9283	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9284	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9285	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9286	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9287	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9288	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9289	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9290	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9291	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9292	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9293	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9294	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9295	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9296	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9297	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9298	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9299
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9300	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9301	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9302	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9303	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9304	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9305	#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	9306	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9307	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9308	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9309	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9310	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9311	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9312	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9313	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9314	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9315	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9316	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9317	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9318	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9319	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9320	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9321	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9322	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9323	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9324	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9325	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9326	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9327	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9328	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9329	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9330	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9331	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9332	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9333	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9334	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9335	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9336	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9337	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9338	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9339	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9340	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9341	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9342	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9343	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9344	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9345	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9346	#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	9347	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9348	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9349	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9350	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9351	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9352	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9353	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9354	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9355	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9356	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9357	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9358	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9359	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9360	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9361	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9362	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9363	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9364	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9365	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9366	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9367	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9368	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9369	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9370	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9371	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9372	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9373	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9374	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9375	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9376	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9377	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9378	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9379	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9380	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9381	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9382	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9383	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9384	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9385	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9386	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9387	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9388
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9389	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9390	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9391	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9392
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9393	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9394	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9395	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9396	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9397	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9398	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9399	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9400	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9401	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9402	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9403	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9404	#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	9405	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9406	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9407	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9408	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9409	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9410	#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	9411	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9412	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9413	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9414	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9415	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9416	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9417	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9418	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9419	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9420
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9421	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9422	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9423	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9424	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9425	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9426	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9427	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9428	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9429	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9430	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9431	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9432	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9433	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9434	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9435	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9436	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9437	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9438	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9439	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9440	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9441	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9442	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9443	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9444	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9445	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9446	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9447	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9448	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9449	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9450
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9451	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9452	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9453	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9454	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9455	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9456	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9457	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9458	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9459	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9460	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9461	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9462	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9463	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9464	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9465	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9466	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9467	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9468
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9469	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9470	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9471	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9472	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9473	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9474	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9475	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9476	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9477	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9478	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9479	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9480	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9481	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9482	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9483	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9484	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9485	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9486
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9487	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9488	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9489	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9490	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9491
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9492	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9493	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9504
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9505	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9512	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9514	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9515
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9516	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9517
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9518	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9519	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9520	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9521	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9522	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9523	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9524	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9525	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9526	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9527	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9528	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9529
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9548	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9551	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	self hasManager ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	repository := manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560	repository notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	repositoryHolder := repository asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	repositoryHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	self cvsIsSetup value:true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	self useManager value: false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569	self localSourceFirst value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9570	self cvsIsSetup value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9571	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9574	self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/files/CVS'.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9575	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9576	self perModuleRootModule value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9580	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9581
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9582	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9583
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9584	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9585	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9586	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9587	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9588	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9589	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9590	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9591
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	(self hasManager and:[self useManager value]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	manager isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9597	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9598	manager := Smalltalk at:#SourceCodeManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600	Class tryLocalSourceFirst:self localSourceFirst value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9602	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9603	\| nm fn\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9604	nm := self sourceCacheDir value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9605	nm size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606	(fn := nm asFilename) exists ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	fn makeDirectory;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609	makeReadableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	makeWritableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611	makeExecutableForAll.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9614	(fn exists
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9615	and:[fn isDirectory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	and:[fn isReadable
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9617	and:[fn isWritable]]]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9618	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620	self warn:'Invalid sourceCache directory.'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9621	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9622	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9623	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9625	repositoryHolder notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9626	repositoryHolder value size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9627	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9628	manager initializeForRepository:repositoryHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9629	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9631	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9632	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9633	Smalltalk at:#SourceCodeManager put:nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9634	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9636	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9637	self acceptChannel value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9638
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9639	"/
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9640	"/ update system settings
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9641	"/
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9642	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9643	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9644	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4357 7e323adce14c add settings option allow send mail from debugger penk parents: 4328 diff changeset	9645	DebugView newDebugger.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9646	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9647	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9648	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9650	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9652	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9653	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9654	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9655	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9656	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9657	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9658	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9662
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9663	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9664
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9665	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9666	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9667	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9668	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9669	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9670
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9671	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9673	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9674	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9675	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9676	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9677	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9678	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9679
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9680	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9681	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9682
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9683	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9684	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9685	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9686	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9687
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9688	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9689	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9690	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9691	"/ cvsBinDirectoryHolder addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9692	"/ cvsBinDirectoryHolder onChangeSend:#cvsBinDirectoryHolderChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9693	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9694	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9695	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9696
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9697	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9699	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9700	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9701	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9702	"/ cvsIsSetup addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9703	"/ cvsIsSetup onChangeSend:#cvsIsSetupChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9704	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9705	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9706	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9707
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9708	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9709
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9710	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9711	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9712	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9713	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9714	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9715	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9716
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9717	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9718
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9719	cvsRootPrototypeList isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9720	OperatingSystem isUNIXlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9721	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9722	'/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9723	'/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9724	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9725	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9726	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9727	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9728	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9729	OperatingSystem isMSDOSlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9730	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9731	':local:c:\files\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9732	':local:c:\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9733	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9734	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9735	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9736	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9737	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9738	cvsRootPrototypeList := #('host:/files/CVS' 'host:/CVS' ':pserver:user@host:/files/CVS').
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9739	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9740	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9741	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9742	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9743	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9744
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9745	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9746
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9747	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9748	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9749	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9750	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9751	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9752	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9753
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9754	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9755
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9756	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9757	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9758	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9759	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9760	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9761	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9763	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9765	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9766	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9767	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9768	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9769	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9770
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9771	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9772	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9773
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9774	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9775	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9776	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9777	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9778
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9779	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9780	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9781	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9782	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9783	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9784	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9785	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9786	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9787
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9788	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9789	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9790
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9791	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9792	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9793	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9794	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9795
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9796	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9797	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9798	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9799	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9800	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9801	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9802	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9803	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9804
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9805	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9806
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9807	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9808	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9809	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9810	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9811	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9812
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9813	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9814
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9815	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9816	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9817	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9818	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9819	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9820	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9821	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9822	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9823
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9824	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9825
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9826	sourceCacheDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9827	sourceCacheDir := nil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9828	sourceCacheDir addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9829	sourceCacheDir onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9830	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9831	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9832	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9834	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9835
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9836	useManager isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9837	useManager := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9838	useManager onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9839	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9840	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9841	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9842
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9844
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9845	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9846
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9847	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9848
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9849	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9850	module := self selectedPerModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9851	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9852	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9853	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9854	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9855	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9856
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9857	sourceDirChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9859	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9860	\| nm fn\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9861	nm := self sourceCacheDir value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9862	nm size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9863	(fn := nm asFilename) exists ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9864	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9865	fn makeDirectory;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9866	makeReadableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9867	makeWritableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9868	makeExecutableForAll.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9869	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9870	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9871	(fn exists
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9872	and:[fn isDirectory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9873	and:[fn isReadable
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9874	and:[fn isWritable]]]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9875	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9876	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9877	self warn:'Invalid sourceCache directory.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9878	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9879	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9880	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9881	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9882	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9884	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9885	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9886
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9887	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9889	changedObject == self sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9890	self sourceDirChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9891	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9892	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9893	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9894	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9895	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9898	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9899	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9900
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9901	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9903	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9904
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9905	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9906	currentUserPrefs := UserPreferences current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9907	(AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9908	and:[AbstractSourceCodeManager isLoaded not]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9909	AbstractSourceCodeManager autoload.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9910	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9911	repositoryHolder := '' asValue.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9912	rootsPerModule := Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9913	self loadRequest.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9914	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9915	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9916
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9917	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9918	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9920	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9922	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9923	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9924	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9925
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9926	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9928	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9929	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9930	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9931
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9933
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9934	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9935	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9936	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9937	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9939	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9941	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9942	self useManager value ~= (Smalltalk at:#SourceCodeManager) notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9943	((self hasManager and:[self useManager value]) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9944	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9945	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9946	) or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9947	(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9948	CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9949	CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9950	(Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9951	]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9952	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9953	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9955	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9957	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9958
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9959	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9960	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9961	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9962	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9963	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9964	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9965	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9966	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9967	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9968	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9969	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9970
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9971	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9972
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9973	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9974	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9975	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9976
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9977	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9978	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9979
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9980	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9981	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9982	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9983	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9984	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9985
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9986	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9987
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9988	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9989	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9990	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9991	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9992	@@@@@@LB@ HFA \G@PD@@@@@@@@@@@@@@@LB@ HB@ GA0(J@P@@@@@@@@@@@@LB@ HB@ HBB \IB ,A@@@@@@@@@@LB@ HB@ HB@ 4NB ,OC0DE@@@@@@LB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9993	@ HB@ HB@ HB@ 8OC0TE@P@@@@@@@0HB@ HB@ HBCQDQC0TEAPHP@AHRD!!HRD!!HRD!!HRD!!HRD!!HAA@HC@@@RD HED1LTEQXVE1 BAPTR@ DC@@@@D!!HBAQLS
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9994	EATVE!!\X@ TED HC@@@@@AHRAPPYFQ([GA0]G TDAAHC@@@@@@@C@0HB@ HB@ HB@!!<MDQDC@@@@@@@@@0LB@ HB@ HB@ H_CQDQ@0@@@@@@@@LC@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9995	@ HBCP4QDPL@@@@@@@@C@0HB@ HB@ HB@ 4MDQDC@@@@@@@@@0LB@ HB@ HB@!!<MDQDQ@0@@@@@@@@LC@ HB@ HB@ H_CQDQDPL@@@@@@@@C@0HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9996	CP4QDQDC@@@@@@@@@0LC@0LC@0LC@0LC@0LC@0@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 88 248 248 248 80 80 80 128 128 128 192 192 192 64 144 136 48 120 112 56 136 128 56 128 120 40 104 96 40 104 104 32 96 96 232 232 232 32 88 88 32 88 80 64 104 104 224 224 224 0 88 128 24 152 192 16 136 184 16 128 168 8 120 160 8 112 152 8 104 144 16 120 152 16 112 144 8 104 136 8 96 128 8 88 120 0 80 112 240 240 240]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9997	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9998
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9999	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10001	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10002	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10003	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10005	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10006	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10008	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10009	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10010	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10011	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10012	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10014	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10016	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10017	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10018	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10019	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10020	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10021	#label: 'Style Selection Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10022	#name: 'Style Selection Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10023	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10024	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10025	#bounds: #(#Rectangle 12 22 487 553)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10026	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10027	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10028	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10029	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10030	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10031	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10032	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10033	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10034	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10035	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10036	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10037	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10038	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10039	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10040	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10041	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10042	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10043	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10044	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10045	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10046	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10047	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10048	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10049	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10050	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10051	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10052	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10053	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10054	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10055	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10056	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10057	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10058	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10059	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10060	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10061	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10062	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10063	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10064	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10065	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10066
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10067	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10068	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10069	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10070
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10071	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10072
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10073	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10075	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10076	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10078	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10079
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10080	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10081	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10082	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10083
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10084	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10086	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10087	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10089	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10090
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10091	\| newStyle master requestor\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10092
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10093	newStyle := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10094	master := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10095	master notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10096	requestor := master requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10097	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10098	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10099	\| launcher \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10100	requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10101	launcher := requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10102	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10103	\| transcript \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10104	transcript := Transcript current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10105	transcript notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10106	\| app\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10107	app := transcript topView application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10108	(app respondsTo:#reopenLauncher) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10109	launcher := app.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10110	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10111	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10112	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10113	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10114	Transcript showCR:'change style to ' , newStyle , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10115	View defaultStyle:newStyle asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10116	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10117	launcher notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10118	launcher reopenLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10119	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10120	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10121	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10122	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10123	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10125	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10126
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10127	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10129	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10130	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10131	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10132	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10133	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10134
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10135	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10136
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10137	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10138	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10139	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10140	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10141	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10143	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10145	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10146	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10147	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10148	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10149	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10150
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10151	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10152
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10153	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10154	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10155	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10156	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10157	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10158	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10160	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10162	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10163	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10164	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10165	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10166	^ showStandardStylesOnly.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10167	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10169	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10171	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10172	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10173	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10174	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10175	^ styleList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10176	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10178	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10180	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10181
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10182	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10183
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10184	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10185	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10186	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10187	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10188	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10189	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10190	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10191	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10192	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10193	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10194	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10195	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10196
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10197	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10198	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10199
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10200	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10201
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10202	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10203	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10204	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10205	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10206	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10207	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10208	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10209	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10210	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10211
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10212	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10213	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10215	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10217	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10219	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10220	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10221	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10222	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10223	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10224	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10225	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10226	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10227	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10228	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10230	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10231	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10232	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10233	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10235	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10237	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10238	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10239	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10240	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10241	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10243	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10244	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10245	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10246	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10247
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10248	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10249
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10250	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10251	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10252	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10253
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10254	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10256	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10257
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10258	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10259	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10260	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10261	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10262	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10263	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10264	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10265	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10266	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10267	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10268	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10269	resourceDir := Smalltalk getSystemFileName:'resources'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10270	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10272	resourceDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10273	self warn:'no styles found (missing ''resources'' directory)'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10274	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10275	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10276	styleDirectoryContents := resourceDir asFilename directoryContents.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10277	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10278	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10279	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10280	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10281	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10282	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10283	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10284	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10285
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10286	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10288	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10289
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10290	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10291	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10292
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10293	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10294
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10295	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10296
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10297	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10298	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10300	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10301	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10302	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10303	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10304	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10305	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10306	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10307	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10309	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10311	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10312	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10313	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10315	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10316
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10318
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10319	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10320	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10321	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10322
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10323	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10327	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10330	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10334	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10335	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10337
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10338	fontList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10339
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10340	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10341	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10342	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10343	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10344	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10345	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10346	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10347	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10348	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10351	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10352	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10353	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10354	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10355	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10356	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10357	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10358	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10359
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10360	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10361
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10362	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10363	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10366	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10367	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10368
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10369	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10370	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10371	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10372	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10374
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10375	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10376
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10377	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10378	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10379	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10380	A0\GA0\GA0\GA0\GA0\GA0\GA0\GA0\IBP$IBP$IBP$IBP$IBP$IBP$IBP\GBP$ABP$I@P$IBP$CBPLIBP$IBPLGA0$ABP$IBP$ABP$I@0$CBP$IBPLIA0\I
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10381	@P$IBP$I@P$IBP$IBP$IBP$CBP\GBPDIBP$IBPDIBP$IBP$IBP$CBP$GA0$ABP$IBP$ABP$IBP$IBP$I@0$IA0\I@P$IBP$I@P$IBP$IBP$I@0$IBP\GBPDI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10382	BP$IBPDIBP$IBP$IBPLIBP$GA0$I@P$IBPDIBP$IBP$IBPLIBP$IA0\IBP$IBP$IBP$IBP$IBP$IBP$IBP\GBP$I@P$IBP$IBP$IBP$IBP$IBP$GA0$I@P$I
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10383	BP$IBP$IBP$IBP$IBP$IA0\IBPDIBP$ABP$I@P$IBP$IBP$IBP\GBPDA@P$ABPDI@P$ABP$ABP$IBP$GA0$I@P$I@P$ABPDI@P$IBP$IBP$IA0\IBPDIBPDI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10384	@P$ABPDIBP$IBP$IBP\GBP$ABP$I@P$IBPDIBP$ABP$IBP$GA0$IBP$IBP$IBP$IBP$IBP$IBP$IA0\IA@$DBPPIA@$DBPPIBP$IBP$IBP\GBP$DBPPIA@$D
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10385	BPPIA@$IBP$IBP$GA0\GA0\GA0\GA0\GA0\GA0\GA0\GA0@a') ; colorMapFromArray:#[160 160 160 0 0 0 48 48 48 0 0 255 255 0 0 255 168 88 195 195 195 88 88 88 255 220 168 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<') ; yourself); yourself]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10386	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10387
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10388	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10389
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10390	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10391	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10392	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10393
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10394	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10395	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10396
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10397	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10398	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10399	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10400	AbstractSettingsApplication::SyntaxColorSettingsAppl open
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10403	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10404
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10405	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10406	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10407	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10408	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10409	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10410	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10411	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10412	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10413	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10414	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10415	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10416	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10417	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10418	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10419	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10420	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10421	#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	10422	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10423	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10424	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10425	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10426	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10427	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10428	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10429	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10430	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10431	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10432	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10433	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10434	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10435	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10436	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10437	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10438	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10439	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10440	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10441	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10442	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10443	#extent: #(#Point 685 22)
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10447	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10448	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10449	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10450	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10452	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10453	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10454	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10455	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10456	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10457	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10458	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10459	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10460	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10461	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10462	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10463	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10464	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10465	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10466	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10467	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10468	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10469	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10470	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10471	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10472	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10473	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10474	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10475	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10476
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10477	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10479	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10480	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10481	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10482	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10483	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10485	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10488	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10489	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10490	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10491	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10492	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10493	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10494	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10496	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10497	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10498	#adjust: #left
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	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10503	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10504	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10505	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10506	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10507	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10508	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10509	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10510	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10511	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10512	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10513	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10514	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10515	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10516	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10517	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10518	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10519	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10520	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10521	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10522	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10523	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10524	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10525
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	#extent: #(#Point 685 44)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10530	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10531	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10532	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10533	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10534	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10535	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10536	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10537	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10538	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10539	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10540	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10541	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10542	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10543	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10544	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10545	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10546	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10547	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10548	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10549	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10550	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10551
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10552	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10553	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10554	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10555	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10556
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10557	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10558	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10559	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10560	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10561
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10562	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10563	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10564	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10565
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10566	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10567	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10568	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10569
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10570	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10572	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10573
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10574	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10575	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10576
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10577	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10578	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10579
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10580	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10581	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10582	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10583
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10584	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10585
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10586	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10587	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10588
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10589	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10590
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10591	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10592	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10593	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10594
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10595	loadRequest
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10596
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10597	\| colorList resetListLoc\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10598
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10599	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10600	(UserPreferences reset; current) declareAllFrom: oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10601	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10602	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10603	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10604	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10605	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10606	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes collect:[: entry \| entry second].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10607	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10608	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10609	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10610	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10611	self syntaxElementSelection value:(colorList at:1).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10612	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10613	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10614
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10615	recolor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10616
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10617	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10618
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10619	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10620	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10621	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10622	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10623	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10624	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10625	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10626
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10627	resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10628
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10629	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10630
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10631	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10632	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10633	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10634	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10635	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10636
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10637	saveSettings
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10638
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10639	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10640	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10641	currentUserPrefs syntaxColoring:self syntaxColoring value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10642	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10643	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10644	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10645	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10646
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10647	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10648
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10649	coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10650
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10651	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10652	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10653	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10654	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10655	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10656
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10657	fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10658
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10659	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10660	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10661	fullSelectorCheck onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10662	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10663	^ fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10664	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10665
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10666	modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10667
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10668	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10669	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10670	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10671	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10672	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10673
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10674	resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10675
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10676	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10677	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10678	"/ 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	10679	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10680	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10681	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10682	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10683	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10684
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10685	resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10686
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10687	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10688	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10689	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10690	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10691	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10692
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10693	syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10694
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10695	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10696	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10697	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10698	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10699	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10700	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10701
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10702	syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10703
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10704	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10705	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10706	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10707	syntaxColoring onChangeSend:#evaluateModified to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10708	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10709	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10710	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10711
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10712	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10713	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10714
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10715	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10716	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10717	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10718	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10719
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10720	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10721	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10722	"/ 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	10723	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10724	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10725	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10726	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10727	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10728
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10729	syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10730
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10731	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10732	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10733	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10734	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10735	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10736	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10737	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10738
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10739	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10740	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10741
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10742	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10743	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10744	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10745	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10746
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10747	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10748	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10749	"/ 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	10750	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10751	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10752	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10753	^ syntaxEmphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10754	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10755
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10756	syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10757
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10758	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10759	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10760	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10761	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10762	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10763	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10764
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10765	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10766
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10767	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10768	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10769
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10770	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10771	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10772
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10773	syntaxColorChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10774
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10775	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10776	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10777	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10778	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10779
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10780	syntaxElementSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10781
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10782	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10783
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10784	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10785	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10786	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10787	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10788	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10789
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10790	syntaxEmphasisSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10791
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10792	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10793
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10794	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10795	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10796	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10797	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10798	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10799
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10800	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10801	"Invoked when an object that I depend upon sends a change notification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10802
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10803	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10804
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10805	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10806	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10807	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10808	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10809	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10810	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10811	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10812	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10813	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10814	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10815	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10816	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10817	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10818	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10819	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10820	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10821
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10822
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10823	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10824	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10825
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10826	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10827
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10828	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10829
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10830	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10831	currentUserPrefs := UserPreferences current.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10832	self initializeEmphasisDictionary.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10833	resetListDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10834	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[: entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10835	resetListDictionary at:(entry at:1) put:(entry at:2).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10836	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10837	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10838	super initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10839	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10840
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10841	initializeEmphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10842
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10843	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10844	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10845	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10846	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10847	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10848	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10849	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10850	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10851	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10852	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10853	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10854	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	10855	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	10856	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10857	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10858	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	10859	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	10860	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10861	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10862	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	10863	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	10864	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10865	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10866	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	10867	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	10868	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10869	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10870	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10871	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10872	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10873	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10874	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10875	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10876	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10877	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10878
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10879	release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10880
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10881	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10882	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10883	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10884	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10885	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10886
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10887	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10888
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10889	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10890
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10891	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10892
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10893	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10894	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10895	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10896	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10897	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10898	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10899	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10900	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10901	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10902	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10903	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10904	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10905	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10906	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10907	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10908	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10909
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10910	syntaxColorSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10911
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10912	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10913	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10914
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10915	syntaxColorSelectorForElement:aSyntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10916
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10917	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10918	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10919
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10920	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10921
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10922	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10923	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10924
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10925	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10926
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10927	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10928	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10929
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10930	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10931
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10932	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10933	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10934	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10935
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10936	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10937	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10938
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10939	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10940	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10941	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10942	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10943	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10944
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10945	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10946
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10947	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10948	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10949	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10950	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10951	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10952	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10953	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10954	RC$&I2\(D1LA@@@@@@@@@@@@@@\?Q$X7G2D!!IATU@P@@@@@@@@@@A0\2P$UEMQ VE!!$WE00B@@@@@@@@@@\GL$IEQSTXE!!XYE1\L@ @@@@@@@@@GA0=CPTD4
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10955	GA4]G!!,[B@D@@@@@@@@@@@@GAPPD@ HB@ DA@PD@@@@@@@@a') ; colorMapFromArray:#[0 0 0 2 2 4 38 38 12 58 34 14 60 60 20 74 70 28 78 46 20 82 82 28 94 94 36 95 95 38 107 107 50 110 62 20 114 114 52 118 58 12 122 82 44 122 122 60 125 123 72 130 74 20 133 101 52 135 134 78 142 134 68 145 144 88 146 146 92 152 152 98 153 153 106 158 158 108 162 114 44 162 162 116 163 163 120 163 164 116 165 164 116 165 165 120 167 165 116 167 166 118 168 90 24 168 98 26 168 167 124 170 169 124 170 170 128 170 170 130 170 171 128 171 168 122 172 170 128 172 171 130 172 172 130 178 106 36 178 122 60 181 121 48 182 122 52 184 116 49 184 184 140 187 122 43 187 186 148 188 188 150 196 141 89 198 198 162 203 203 172 204 203 170 205 202 168 210 210 178 219 217 188 219 219 190 220 220 188 220 220 190 222 174 132 232 231 214 233 233 216 234 234 212 236 231 208 236 236 220 241 241 232 243 243 232 243 243 234]; 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]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10956	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10957
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10958	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10960	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10961	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10962	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10964	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10965	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10967	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10968	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10969	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10970	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10971	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10973	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10974
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10975	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10976	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10977	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10978	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10979	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10980	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10981	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10982	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10983	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10984	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10985	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10986	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10987	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10988	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10989	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10990	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10991	#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	10992	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10993	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10994	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10995	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10996	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10997	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10998	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10999	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11000	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11001	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11002	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11003	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11004	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11005	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11006	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11007	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11008	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11009	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11010	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11011	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11012	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11013	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11014	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11015	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11016	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11017	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11018	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11019	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11020	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11021	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11022	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11023	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11024	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11025	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11026	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11027	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11028	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11029	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11030	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11031	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11032	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11033	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11034	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11035	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11036	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11037	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11038	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11039	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11040	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11041	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11042	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11043	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11044	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11045
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11046	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11047	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11048	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11049	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11050	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11051	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11052	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11053	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11054	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11055	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11056	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11057	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11058	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11059	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11060	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11061	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11062	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11063	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11064	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11065	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11066	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11067	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11068	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11069	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11070	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11071	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11072	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11073	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11074	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11075	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11076	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11077	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11078	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11079	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11080	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11081	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11082	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11083	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11084	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11085	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11086	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11087	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11088	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11089
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11091	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11092	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11093	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11094
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11095	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11096	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11097	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11098	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11099
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11100	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11101	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11102	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11104	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11105	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11106	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11108	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11109
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11110	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11111
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11112	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11113	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11115	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11116
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11117	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11118	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11120	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11121
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11122	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11123	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11124	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11125	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11126	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11127	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11128	self updChanges value:Class updatingChanges.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11129	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11132	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11134	ObjectMemory infoPrinting:self vmInfo value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11135	ObjectMemory debugPrinting:self vmErrors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11136	Object infoPrinting:self classInfos value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11137	DeviceWorkstation errorPrinting:self displayErrors value.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11138	ObjectMemory nameForChanges:self changeFileName value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11139	Smalltalk logDoits:self logDoits value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11140	Class updateChanges:self updChanges value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11141	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11142	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11143
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11144	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11145
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11146	changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11147
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11148	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11149	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11150	changeFileName onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11151	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11152	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11153	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11154
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11155	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11156
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11157	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11158	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11159	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11160	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11161	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11162	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11164	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11165
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11166	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11167	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11168	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11169	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11170	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11171	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11172
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11173	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11174
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11175	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11176	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11177	logDoits onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11178	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11179	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11180	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11181
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11182	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11183
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11184	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11185	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11186	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11187	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11188	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11189
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11190	updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11191
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11192	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11193	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11194	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11195	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11196	^ updChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11197	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11198
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11199	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11201	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11202	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11203	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11204	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11205	^ vmErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11206	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11208	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11209
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11210	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11211	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11212	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11213	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11214	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11215	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11217	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11219	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11220
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11221	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11222	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11223	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11225	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11227	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11228
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11229	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11230	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11231	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11232	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11233	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11234	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11235	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11236	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11237
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11238	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11239
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11240	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11241	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11242	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11243
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11244	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11245	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11246
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11247	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11248	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11249	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11250	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11251	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11252
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11253	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11254
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11255	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11256	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11257	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11258	@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11259	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11260	D <MB@@B@ MC0X@@@@@@@@B@ @@@@LCD@4OCP<MC08FA X@@@@@@ H@@@DR@0LCD@<MC08FA FA @@@@HB@@@@D!!HR@0LC@0LCA <LBPXF@@@B@ @@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11261	D!!HRD!!HC@0LCC04KBP@@@ H@@@@@@@@@@AHRD!!HR@0LCDP<@@@HB@@@@@@@@@@@@@@@@D!!HR@0LC@@@B@ @@@@@@@@@@@@X@@@@@D!!HR@0@@@ H@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11262	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11263	@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ HB@ @a') ; colorMapFromArray:#[0 0 0 48 48 48 96 100 96 120 120 120 128 128 128 248 172 168 168 172 168 184 184 184 192 192 192 192 196 192 200 196 200 200 204 200 208 208 208 224 220 224 232 232 232 232 236 232 240 236 240 240 240 240 248 252 248]; 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? @B_ @@G @@A @@@@@@@@@@@@@@@@') ; yourself); yourself]
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11264	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11265
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11266	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11268	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11269	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11270	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11272	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11273	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11275	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11276	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11277	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11278	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11279	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11281	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11282
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11283	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11284	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11285	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11286	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11287	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11288	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	11289	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11290	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11291	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11292	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11293	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11294	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11295	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11296	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11297	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11298	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11299	#layout: #(#LayoutFrame 0 0 0 0 358 0 208 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11300	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11301	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11302	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11303	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11304	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11305	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11306	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11307	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11308	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11309	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11310	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11311	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11312	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11313	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11314	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11315	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11316	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11317	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11318	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11319	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11320	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11321	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11322	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11323	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11324	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11325	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11326	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11327	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11328	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11329	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11330	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11331	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11332	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11333	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11334	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11335	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11336	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11337	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11338	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11339	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11340	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11341	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11342	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11343	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11344	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11345	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11346	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11347	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11348	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11349	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11350	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11351	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11352	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11353	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11354	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11355	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11356	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11357	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11358	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11359	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11360	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11361	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11362	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11363	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11364	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11365	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11366	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11367	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11368	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11369	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11370	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11371	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11372	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11373	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11374	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11375	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11376	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11377	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11378	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11379	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11380	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11381	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11382	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11383	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11384	#acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11385	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11386	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11387
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11388	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11389	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11390	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11391	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11393	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11394	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11395	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11396	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11398	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11399	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11400	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11402	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11404	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11406	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11407	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11409	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11411	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11412	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11414	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11415
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11416	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11417	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11418	self transcriptBufferSize value:Transcript current lineLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11419	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11420	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11421	self useNewInspector value:currentUserPrefs useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11422	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11423	self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11424	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11425	self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11426	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11427	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11429	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11430
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11431	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11432
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11433	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11434	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11435	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11436	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11437	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11438	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11439	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11440	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11441	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11442	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11443	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11444	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11445	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11446	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11447	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11448	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11449	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11450	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11451	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11452	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11453	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11454	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11455	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11456	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11457	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11458	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11459	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11460	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11461	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11462	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11463	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11464	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11465	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11466	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11467	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11468	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11469	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11470	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11471	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11472	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11473	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	11474	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11475	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11476	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11478	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11480	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11482	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11483	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11484	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11485	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11486	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11488	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11490	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11491	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11492	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11493	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11494	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11495	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11497	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11499	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11500	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11501	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11502	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11503	^ transcriptBufferSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11504	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11506	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11508	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11509	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11510	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11511	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11512	^ useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11513	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11515	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11517	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11518	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11519	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11521	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11522	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11523
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11524	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11525
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11526	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11527	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11528	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11529	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11530	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11531	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11532
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11533	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11535	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11536	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11537	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11538	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11539	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11540	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11541
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11542	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11543
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11544	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11545	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11546	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11547	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11548	^ useNewSettingsApplication.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11549	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11550
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11551	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11553	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11554	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11555	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11556	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11557	^ useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11558	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11560	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11561
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11562	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11563	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11564	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11565	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11566	^ useNewVersionDiffBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11567	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11569	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11571	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11572
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11573	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11574	currentUserPrefs := UserPreferences current.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11575	self loadRequest.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11576	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11577	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11579	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11581	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11583	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11584	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11585	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11586	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11587	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11588	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11589	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11590	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11591	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11592	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11593
4226 44e2f83cc526 initial checkin penk parents: diff changeset	11594	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	11595
44e2f83cc526 initial checkin penk parents: diff changeset	11596	version
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	11597	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.20 2003-01-10 16:56:51 cg Exp $'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	11598	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 10 Jan 2003 17:56:51 +0100
changeset 4434	cd943991daad
parent 4428	00e398e9c9e5
child 4438	74e64acf5dd0
permissions	-rw-r--r--