hg/stx-libtool: AbstractSettingsApplication.st@997576abcb7f (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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	73	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	74	instanceVariableNames:'modifiedChannel selectedRawKey macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	75	selectedFunctionKey labelTextHolder functionKeyList rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	76	mappings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	77	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	78	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	79	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	80	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	81
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	82	AbstractSettingsApplication subclass:#LanguageSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	83	instanceVariableNames:'modifiedChannel languageHolder languageList listOfLanguages
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	84	translatedLanguages noticeLabelHolder currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	85	currentLanguageLabel'
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:#MemorySettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	92	instanceVariableNames:'modifiedChannel newSpaceSize maxOldSpace fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93	warningLabelHolder codeTrigger codeLimit oldIncr compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94	igcFreeLimit igcLimit igcFreeAmount stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	supportsJustInTimeCompilation'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	96	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	97	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	98	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	99	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	100
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	101	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
933cd54deefe checkin from browser penk parents: 4292 diff changeset	102	instanceVariableNames:'modifiedChannel remoteBrowsingEnabled windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	103	windowMigrationPassword windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	104	enablePasswordCheck'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	105	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	106	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	107	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	108	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	109
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	110	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	111	instanceVariableNames:'modifiedChannel returnFocus focusFollowsMouse beepEnabled
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	112	takeFocus activateOnClick shadows opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	113	formatHostNameinWindowLabels opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	114	hostNameInLabelHolder showAccelerators currentUserPrefs
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	115	newWindowLabelFormat formatHostNameWindowLabel'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	116	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	117	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	118	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	121	AbstractSettingsApplication subclass:#OsiSettingsAppl
933cd54deefe checkin from browser penk parents: 4292 diff changeset	122	instanceVariableNames:'modifiedChannel osiACSEConnectionLogging osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	123	osiCMISEErrorLogging osiACSEErrorLogging osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	124	osiCMISEPresent osiCMISEMessageLogging osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	125	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	126	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	127	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	128	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	129	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	130
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	131	AbstractSettingsApplication subclass:#PrinterSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	132	instanceVariableNames:'modifiedChannel selectedUnit supportsColor topMargin rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	133	bottomMargin landscape pageFormatList pageFormat unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134	leftMargin possiblePrinters printerType printerTypeSelection
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	135	printCommandList commandList printCommand enableFormat
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	136	enablelandscape enableMargins enableColorBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	137	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	138	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	139	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	140	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	141
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	142	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	143	instanceVariableNames:'modifiedChannel dynamicPrios preemptive'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	144	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	145	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	146	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	147	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	148
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	149	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
933cd54deefe checkin from browser penk parents: 4292 diff changeset	150	instanceVariableNames:'modifiedChannel rDoitLogging rDoitsEnabled rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	151	hasRDoitServer rDoitErrorDebugging rDoitServerPort'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	152	classVariableNames:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	153	poolDictionaries:''
933cd54deefe checkin from browser penk parents: 4292 diff changeset	154	privateIn:AbstractSettingsApplication
933cd54deefe checkin from browser penk parents: 4292 diff changeset	155	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	156
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	157	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	158	instanceVariableNames:'modifiedChannel cc ccOptions stcIncludes linkCommand stc linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	159	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	160	stcCompilationSelection stcCompilationList'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	161	classVariableNames:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	162	poolDictionaries:''
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	163	privateIn:AbstractSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	164	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	165
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	166	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	167	instanceVariableNames:'modifiedChannel spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	168	emptyLineAfterTemporaries tabIndent autoFormat cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	169	editorText maxLengthForSingleLineBlocks blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	170	spaceAfterReturnToken spaceAroundTemporaries currentUserPrefs
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	171	oldUserPreferences reformatLocked'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	172	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	173	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	174	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	175	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	176
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	177	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	178	instanceVariableNames:'modifiedChannel sourceCacheDir useManager condenseSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	179	syntaxColorConfiguration setupSourceCodeManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	180	checkClassesWhenCheckingIn formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	181	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	182	manager repository currentUserPrefs listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	183	cvsRootPrototypeList addPerModuleRoot removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	184	perModuleRootModule acceptChannel removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	185	perModuleRoot cvsRootHolder selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	186	cvsBinDirectoryHolder rootsPerModule'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	187	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	188	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	189	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	190	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	191
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	192	AbstractSettingsApplication subclass:#StyleSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	193	instanceVariableNames:'modifiedChannel showStandardStylesOnly styleList selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	194	styleDirectoryContents infoLabelHolder noticeLabelHolder'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	195	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	196	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	197	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	198	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	199
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	200	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	201	instanceVariableNames:'modifiedChannel coloredText syntaxColor syntaxColors resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	202	resetListSelection fullSelectorCheck syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	203	currentUserPrefs oldUserPreferences syntaxFontSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	204	syntaxFonts syntaxElementList syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	205	syntaxEmphasisList syntaxEmphasisSelection emphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	206	resetListDictionary'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	207	classVariableNames:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	208	poolDictionaries:''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	209	privateIn:AbstractSettingsApplication
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	210	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	211
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	212	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	213	instanceVariableNames:'modifiedChannel classInfos vmInfo vmErrors displayErrors logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	214	updChanges changeFileName'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	215	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	216	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	217	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	220	AbstractSettingsApplication subclass:#ToolsSettingsAppl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	221	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	222	showClockInLauncher useNewChangesBrowser useNewFileBrowser
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	223	useNewSystemBrowser currentUserPrefs modifiedChannel
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	224	useNewFileDialog useNewSettingsApplication useProcessMonitorV2'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	225	classVariableNames:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	226	poolDictionaries:''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	227	privateIn:AbstractSettingsApplication
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	230	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	231
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	232	windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	233
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	234	self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	235	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	236
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	237	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	238
68504047f229 * empty log message * penk parents: 4286 diff changeset	239	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	240
68504047f229 * empty log message * penk parents: 4286 diff changeset	241	^ AbstractLauncherApplication classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	242	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	243
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	244	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	245
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	246	saveRequest
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	247	\| result\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	248
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	249	(self hasUnsavedChanges) ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	250	result := self confirmWithCancel:(resources string:'Save changed ', settingsString, ' ?').
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	251	result isNil ifTrue:[ ^ false].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	252	result ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	253	self saveSettings.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	254	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	255	self loadRequest.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	256	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	257	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	258	^ true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	259	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	260
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	261	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	262
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	263	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	264
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	265	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	266	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	267
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	268	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	269
289972d3e455 * empty log message * penk parents: 4319 diff changeset	270	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	271	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	272	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	273	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	274
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	275	initialize
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	276
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	277	settingsString := (UISpecification from:(self class windowSpec)) window label.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	278	super initialize
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	279	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	280
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	281	loadRequest
f196089fe934 next stage for settings penk parents: 4228 diff changeset	282
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	283	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	284	"/ self modifiedChannel value:false.
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	285	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	286
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	287	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	288
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	289	self subclassResponsibility.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	290	! !
44e2f83cc526 initial checkin penk parents: diff changeset	291
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	292	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	293
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	294	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	295
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	296	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	297	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	298
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	299	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	300
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	301	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	302	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	303
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	304	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	305
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	306	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	307	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	308	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	309
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	310	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	311	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	312
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	313	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	314	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	315	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	316	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	317	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	318
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	319	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	320
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	321	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	322	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	323	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	324	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	325	@@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	326	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	327	@@@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	328	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	329	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	330	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	331
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	332	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	334	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	335	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	336	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	338	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	339	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	341	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	342	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	343	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	344	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	345	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	347	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	348
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	349	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	350	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	351	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	352	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	353	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	354	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	355	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	357	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	358	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	359	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	360	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	361	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	362	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	363	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	364	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	365	#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	366	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	367	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	368	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	369	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	370	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	371	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	372	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	373	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	374	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	375	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	376	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	377	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	378	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	379	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	380	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	381	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	382	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	383	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	384	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	385	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	386	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	387	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	388	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	389	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	390	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	391	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	392	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	393	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	394	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	395	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	396	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	397	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	398	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	399	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	400	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	401	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	402	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	403	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	404	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	405	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	406	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	407	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	408	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	409	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	410	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	412	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	413	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	414	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	415	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	416	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	417	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	418	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	419	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	420	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	421	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	422	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	423	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	424	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	425	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	426	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	427	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	428	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	429	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	)
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	524	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	525	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	526	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	527	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	528	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	529	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	530	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	531	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	532	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	533	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	534	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	535	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	536	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	537	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	538	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	539	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	540	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	541	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	542	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	543	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	544	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	545	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	546	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	547	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	548	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	549	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	550	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	551	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	552	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	553	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	554	#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	555	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	556	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	557	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	558	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	559	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	560	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	561	#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	562	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	563	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	564	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	565	#useIndex: true
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	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	568
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	569	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	570	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	571	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	572	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	573
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	574	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	575	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	576	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	578	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	579	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	580	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	581
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	582	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	584	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	586	self modifiedChannel value:(self hasUnsavedChanges).
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	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	591	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	592	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	594	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	596	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	597	self allowDolphinExtensions value:(Compiler allowDolphinExtensions ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	598	self allowOldStyleAssignment value:(Compiler allowOldStyleAssignment ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	599	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	600	self allowReservedWordsAsSelectors value:(Compiler allowReservedWordsAsSelectors ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	601	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	602	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	603	self constantFoldingSelection value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	604	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	605	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	606	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	607	self fullDebugSupport value:(Compiler lineNumberInfo == #full).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	609	self immutableArrays value:(Compiler arraysAreImmutable ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	610	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	611	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	612	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	613	self justInTimeCompilation value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	614	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	615	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	616	self warnCompatibility value:(Compiler warnPossibleIncompatibilities ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	617	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	618	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	619	self warnSTX value:(Compiler warnSTXSpecials ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	620	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	621	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	622	self warnings value:(Compiler warnings ? false).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	623	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	624	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	626	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	628	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	629	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	630	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	631	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	632	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	633	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	634	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	635	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	636	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	637	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	638	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	639	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	640	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	641	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	649	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	651	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	653	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	668	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	669
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	670	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	672	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	674	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	675	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	676	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	677	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	678	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	679	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	680	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	682	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	684	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	685	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	686	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	687	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	688	^ allowDolphinExtensions.
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	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	693	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	694	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	695	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	696	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	697	^ allowOldStyleAssignment.
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	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	702	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	703	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	704	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	706	^ allowQualifiedNames.
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	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	711	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	712	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	713	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	714	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	715	^ allowReservedWordsAsSelectors.
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	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	720	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	722	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724	^ allowSqueakExtensions.
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	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	^ enableDollar.
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	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	^ immutableArrays.
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	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	^ warnCommonMistakes.
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	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	^ warnCompatibility.
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	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	^ warnDollar.
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	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	^ warnOldStyle.
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	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	^ warnSTX.
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	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	^ warnUnderscore.
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	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	^ warnUnusedVars.
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	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	907	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	changedObject == self warnings ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	self warnings value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	932	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	936	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	940	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	964	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	972	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	974	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	975	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	976
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	977	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	978	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	979
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	980	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	981
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	982	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	983	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	984	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	987	the UIPainter may not be able to read the specification."
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	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	990	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	991	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	992	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	993	"
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	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	996
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	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	999	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1000	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1001	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1002	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1003	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1004	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1005	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1006	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1007	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1008	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1009	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1010	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1011	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1012	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1013	#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	1014	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1015	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1016	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1017	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1018	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022	#name: 'VerticalPanel5'
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: #topSpace
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: 3
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1051	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	#extent: #(#Point 600 320)
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	)
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	)
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
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	evaluateModified
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	self modifiedChannel value:(self hasUnsavedChanges).
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	help
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	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109	loadRequest
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	self allowSendMailFromDebugger value:currentUserPrefs allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	self showErrorNotifier value:(Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1115	!
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	saveSettings
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	self showErrorNotifier value ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	Exception emergencyHandler:nil
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1123	] ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1124	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
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	DebugView defaultVerboseBacktrace:self showVerboseStack value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1127	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1128	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1129	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1130
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1131	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1132
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1133	allowSendMailFromDebugger
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	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1136	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1137	allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
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	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1140	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1141
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1142	modifiedChannel
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	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1145	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1146	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1147	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1148	!
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	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1151
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1152	showErrorNotifier isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1153	showErrorNotifier := (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1154	showErrorNotifier onChangeSend:#evaluateModified to:self
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	^ showErrorNotifier.
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	showVerboseStack
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	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1163	showVerboseStack 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	^ showVerboseStack.
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171	"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	1172
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1177	"/ ].
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	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'initialization & release'!
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	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187	currentUserPrefs := UserPreferences current.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189	super initialize
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1192	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1193
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1194	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1195
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1197	self showErrorNotifier value ~= (Exception emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1198	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1200	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1202	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1203
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1204	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1206	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1208	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1209	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1234	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1235
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1236	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1237
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1238	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1239	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1240	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1241
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1242	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1243	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1244
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1245	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1254	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	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	1256	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1257	@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	1258	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	1259	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	1260	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1262	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1263
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1264	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1265
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1266	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1267	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1268	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1270	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1274	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1275	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1276	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1290	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#labelChannel: #useFixPaletteLabel
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 Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	self modifiedChannel value:(self hasUnsavedChanges).
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	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1463
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1464	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1465	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1466	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1468	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1470	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1471	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1472	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1473	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1474	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1476	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1477	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1478	self ditherListSelection value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1479	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1480	self clipEncodingListSelection value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1481	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1482	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1484	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1486	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1487	Image flushDeviceImages.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1489	screen visualType == #PseudoColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1490	self useFixPalette value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1491	Color colorAllocationFailSignal handle:[:ex \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1492	self warn:'Could not allocate colors.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1493	] do:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1494	Color getColorsRed:4 green:8 blue:4 on:screen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1495	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1497	screen releaseFixColors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1498	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	self useFixGrayPalette value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1501	Color colorAllocationFailSignal handle:[:ex \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1502	self warn:'Could not allocate colors.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1503	] do:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	Color getGrayColors:32 on:screen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	screen releaseFixGrayColors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1510	screen hasColors:self isColorMonitor value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1511	screen widthInMillimeter:self sizeX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	screen heightInMillimeter:self sizeY value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	screen supportsDeepIcons:self deepIcons value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
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	WindowGroup activeGroup withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520	View defaultStyle:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1523	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	^ useFixGrayPalette.
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	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	^ useFixPalette.
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	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	^ visualIsPseudoColor.
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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	\| listOfSizes visual\|
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1750	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	listOfSizes := resources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784	^ super postOpenAsSubcanvasWith:aBuilder
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	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1800	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1802	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1804	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1805	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1806	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1807	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1808	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1809	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1810	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1811	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1812
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1814
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1815	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1816	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1817	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1818
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1819	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1820	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1821
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1822	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1823	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1824	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1825	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1826	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1827
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1828	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1829
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1830	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1831	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1832	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	1833	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1834	@@(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	1835	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	1836	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	1837	@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	1838	@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	1839	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1840
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1851	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1852	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1853	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1863	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1864	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1867	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1874	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	#verticalLayout: #top
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	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1926	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1928	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1929	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938	)
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1942
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945	self modifiedChannel value:(self hasUnsavedChanges).
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	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1950	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956	self st80EditingMode value: UserPreferences current st80EditMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1957	self st80DoubleClickSelectMode value: TextView st80SelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1958	self tabsIs4 value: (ListView userDefaultTabPositions = ListView tab4Positions).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959	self searchDialogIsModal value: UserPreferences current searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960	self startTextDragWithControl value: UserPreferences current startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	UserPreferences current st80EditMode:(self st80EditingMode value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	ListView allSubInstancesDo:[:eachKindOfListView \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	^ searchDialogIsModal.
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	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	^ st80DoubleClickSelectMode.
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	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	^ st80EditingMode.
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	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	^ startTextDragWithControl.
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	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	^ tabsIs4.
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	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2054	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055	self loadRequest.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	super initialize
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	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2060	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2062	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2064	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2065	^ super postOpenAsSubcanvasWith:aBuilder
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	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2069
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2070	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2071	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2072	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2073
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2074	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2076	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2078	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2079	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2080	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2081	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2082	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2083	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2084	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2085	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2089	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2090
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2091	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2092
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2093	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2094	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2095	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2096	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2098	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2099	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2100	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2101	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2103	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2104
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2105	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2106	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2107	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2108
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2109	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2110	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2111
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2112	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2113	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2114	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2115	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2116	"
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	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2120	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2121	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2122	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	2123	@@@@@@@@@@@@@@@@@@@@@!!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	2124	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	2125	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	2126	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2127
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2128	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2129	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2130	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2131
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2132	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2133	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2134
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	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2137	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2138	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2139	"
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	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2142
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2143	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2144	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2145	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	2146	@@@@@@@@@@@@@@@@@@@@@!!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	2147	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	2148	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	2149	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2150
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2151	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2152
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2153	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2155	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2156
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2157	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2158	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2159	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2160	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2161	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2162
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2163	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2165	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2166	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2167	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2169	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2170	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2171
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2172	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2175	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2176	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2177
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2178	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2180	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2181	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2182	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2183	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2184	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2185	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2186	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2187	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2188	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2189	#bounds: #(#Rectangle 16 42 512 654)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2190	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2191	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2192	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2193	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2195	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2196	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2198	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2199	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2200	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2201	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2202	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2203	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210	#label: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2241	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2244	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2245	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2246	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2312	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2313	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2315	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2355	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2376	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2377	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2378	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2379	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2380	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2381	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2382	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2383	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2384	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2385	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2386	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2387	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2388	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2389	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2390
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2391	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2392	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2393	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2394	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2395	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2396	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2397	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2398	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2399	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2400	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2401	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2402	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2403	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2404	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2405	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2406	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2407	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2408	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2409	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2410	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2411	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2412	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2413	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2414	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2415	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2416	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2417	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2418	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2419	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2420	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2421	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2422	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2423	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2424	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2425	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2426	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2427	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2428
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2429	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2430	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2431	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2434	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2435	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2436	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	and:[aEncodingMatch match:f encoding]].
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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	self allOfThem value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	self labelDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	self buttonDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	self listDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	self menuDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	self textDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	self allOfThem value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2485	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	self labelDef value:f.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2493	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	self listDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	self menuDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	f notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	self textDef value:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	self textDef value:TextView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556	\| master requestor\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	master := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	master notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	requestor := master requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	Label defaultFont:self labelDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564	Button defaultFont:self buttonDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	Toggle defaultFont:self buttonDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	MenuView defaultFont:self menuDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	PullDownMenu defaultFont:self menuDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	buttonsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	buttonsFontLabelHolder := Button defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2622	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2624	labelsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	labelsFontLabelHolder := Label defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2626	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2627	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2631	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2634	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2635	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2637	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2640	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2642	listsFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2643	listsFontLabelHolder := SelectionInListView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2644	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2645	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2649	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2651	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2652	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2653	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2654	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2655	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2656	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2658	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2660	menusFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2661	menusFontLabelHolder := MenuView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2666	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686	textFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687	textFontLabelHolder := TextView defaultFont asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	f := self allOfThem value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702	allLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2708	self allFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	changedObject == self labelDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	f := self labelDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	labelLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2721	self labelsFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2724	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2725	changedObject == self buttonDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2726	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2727	f := self buttonDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2728	buttonsLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2729	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2730	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2731	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2732	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2733	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2734	self buttonsFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2735	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2736	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2737	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2738	changedObject == self listDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2739	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2740	f := self listDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2741	listsLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2742	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2743	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2744	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2745	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2746	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2747	self listsFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2748	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2749	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2750	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2751	changedObject == self menuDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2752	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2753	f := self menuDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2754	menuLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2755	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2756	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2757	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2758	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2759	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2760	self menusFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2761	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2762	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2763	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2764	changedObject == self textDef ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2765	\| f label\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2766	f := self textDef value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2767	textLabel font:f.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2768	label := f isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2769	''
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2770	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2771	f userFriendlyName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2772	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2773	self evaluateModified.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2774	self textFontLabelHolder value:label.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2775	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2776	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2778	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2779	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2781	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2783	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2784
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2786	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2787	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2789	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2790
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2791	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2792	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2794	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2796	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2797	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2798
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2799	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2801	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2802	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2804	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2806	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2807	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2809	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2810
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2811	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2812	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2814	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2815
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2817	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2818
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2819	postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2820
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2821	self loadRequest.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2822	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2823	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2825	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2826
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2827	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2829	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2830	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2831	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2832	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2833	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2834	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2835
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2837
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2838	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845	^ #('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	2846	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856
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	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	Icon flushCachedIcons
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	<resource: #image>
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	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867	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	2868	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869	@@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	2870	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	2871	@@@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	2872	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	2874	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2875
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2876	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2879	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2880	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2883	the UIPainter may not be able to read the specification."
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	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2886	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2887	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2888	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2889	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2895	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2896	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2897	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2898	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2899	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2901	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2902	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2906	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2907	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2908	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2909	#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	2910	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2911	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2912	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2913	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2918	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2919	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2920	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922	#extent: #(#Point 600 25)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2928	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2930	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2934	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2937	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2938	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2944	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2954	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2956	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2959	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2965	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2967	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2982	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987	)
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	)
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	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
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	evaluateModified
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2998	self modifiedChannel value:(self hasUnsavedChanges).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2999	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3000
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
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	loadRequest
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	self keepSourceSelection value:(self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013	self loadBinaries value:Smalltalk loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3016	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3018	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3019	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020	self fullHistoryUpdate value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3021	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3022	self historyLines value:self hasHistoryManager.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3023	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024	!
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	saveSettings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3027
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3028	self hasUnsavedChanges ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3029	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3030	Class catchClassRedefinitions:self catchClassRedefs value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3031	Class catchMethodRedefinitions:self catchMethodRedefs value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3032	HistoryManager notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3033	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3034	self historyLines value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3035	HistoryManager activate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3036	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3037	HistoryManager deactivate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3038	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3039	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3040	Smalltalk loadBinaries:self loadBinaries value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3041	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3042	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3043	! !
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3046
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3047	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3048
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3049	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3050	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3051	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3052	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3053	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3054
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3055	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3056
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3057	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3058	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3059	catchClassRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3060	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3061	^ catchClassRedefs.
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	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3065
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3066	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3067	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3068	catchMethodRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3069	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3070	^ catchMethodRedefs.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3073	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3076	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3077	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3078	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3079	fullHistoryUpdate := false asValue.
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	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
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	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3084	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3085
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3086	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3087
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3088	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3091	historyLines
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	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3094	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3095	historyLines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3096	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3097	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3098	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3099
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3100	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3101
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3102	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3103	keepSource := (resources array:(self class keepSourceStrings)) asList.
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	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3106	!
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	keepSourceSelection
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	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3111	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3112	keepSourceSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3113	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3114	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3115	!
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	loadBinaries
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	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3120	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3121	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3122	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3123	loadBinaries:= false asValue
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	loadBinaries onChangeSend:#evaluateModified to:self.
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	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3128	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3129
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3130	modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3131
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3132	modifiedChannel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3133	modifiedChannel := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3134	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3135	^ modifiedChannel
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3138	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'change & update'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3139
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3140	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3141	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3142
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3143	"stub code automatically generated - please change as required"
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	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3146	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3147	"/ ].
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	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3150	! !
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'initialization & release'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3153
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3154	initialize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3155
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3156	resources := self class classResources.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3157	self loadRequest.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3158	super initialize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3159	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3160
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3161	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3164
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3165	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3166	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3167	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3168	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3169	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3170	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3171	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3172	]]]]]
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	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3175
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3176	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3177
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3178	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3179	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3180	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3181
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3182	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3183	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3184
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3185	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3186	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3187	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3188	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3189	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3190
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3191	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3192
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3193	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3194	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3195	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	3196	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3197	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3198	@@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	3199	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3200	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3201	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3202	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3203
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3204	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3206	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3207	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3208	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3209
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3210	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3211	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3213	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3214	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3215	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3216	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3217	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3219	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3221	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3222	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3223	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3224	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3225	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3226	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3227	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3228	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3229	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3230	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3231	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3232	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3233	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3234	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3235	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3236	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3237	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3238	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3239	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3240	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3241	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3242	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3243	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3244	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3245	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3246	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3247	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3248	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3249	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3250	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3251	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3252	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3253	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3254	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3255	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3256	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3257	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3258	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3259	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3260	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3261	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3262	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3264	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3265	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3266	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3268	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3269	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3270	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3271	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3274	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3277	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3278	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3279	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3282	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3283	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3284	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3285	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3286	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3287	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3289	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3290	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3291	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3294	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3295	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3296	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3297	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3298	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3299	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3300	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3301	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3302	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3303	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3304	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3305	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3306
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3307	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3308	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3309	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3310
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3311	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3313	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3315	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3316	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3318	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3319
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3320	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3321	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3322
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3323	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3325	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3326	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3328	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3329	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3330
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3331	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3333	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3334	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3336	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3339	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3342	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3343	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3344	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3345	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3346	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3347	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3348	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3350	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3351	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3352
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3353	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3354	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3355	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3356	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3358	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3360	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3361	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3362	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3363	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3364	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3365	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3367	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3368	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3370	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3371	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3372	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3373	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3375	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3376	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3377	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3378	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3379	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3380	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3381	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3382	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3384	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3386	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3387	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3388	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3389	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3390	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3392	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3394	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3395	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3396	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3397	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3398	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3399
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3400	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3402	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3403	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3404	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3405	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3406	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3407	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3409	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3411	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3412	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3413	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3414	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3415	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3416	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3418	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3419
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3420	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3421
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3422	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3423	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3424	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3425	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3426
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3427	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3431	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3432	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3433	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3434	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3435	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3436	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3437	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3438	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3439	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3440	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3441	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3443	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3444	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3445	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3446	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3447	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3448	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3456	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3515	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3533	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3534
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3535	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3536	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3537	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3538
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3539	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3540	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3541
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3542	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3543	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3544	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3545	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3546	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3547
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3548	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3549
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3550	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3551	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3552	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	3553	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3554	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	3555	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	3556	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	3557	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	3558	@@@@@@@@@@@@@@@@@@@@@@@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	3559	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3560
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3571	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3572	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3573	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	#bounds: #(#Rectangle 16 42 491 713)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	#name: 'EntryField1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 125 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3595	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598	#acceptOnLostFocus: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599	#acceptOnPointerLeave: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	#name: 'List1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3603	#layout: #(#LayoutFrame 0 0.0 125 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3648	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650	requestor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651	"return the value of the instance variable 'requestor' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3653	\| masterApplication \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	masterApplication := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	masterApplication notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	^ masterApplication requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658	^ nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	doubleClick:aEntry
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	self saveSettings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680	self languageHolder value:self currentLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	self currentLanguageChannel value:self currentLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3730	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734	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	3735	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3736	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3737	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3738	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3744	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3745	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3746	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3747	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3748	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3749	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3750	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3751	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3752	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3753	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3754	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3755	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3757	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3758	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3759	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3760	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3762	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3763	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3764	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3767	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3768	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	self currentLanguageChannel value:self currentLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3773	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3774	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3783	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3810
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3840	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3842	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3844	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3845	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3846	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3847	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3852	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3853	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3854	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3855	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3856	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3857	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3858	nil
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	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	languageList := translatedLanguages with:flags collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	^ languageList at:(listOfLanguages indexOf:lang)
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	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3895	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3896
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3897	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3898	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3899	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3900
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3901	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3902	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3903
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3904	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3905	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3906	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3907	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3908	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3909
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3910	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3911
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3912	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3913	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3914	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	3915	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3916	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3917	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	3918	@ 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	3919	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3920	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	3921	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3922
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3933	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3934	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3935	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3958	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3962	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3963	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3964	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3965	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3966	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3967	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3972	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3973	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3974	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3975	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3976	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3977	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3978	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3979	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3980	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3981	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3982	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3983	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3984	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3985	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3986	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3987	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3988	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3989	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3990	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3991	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3992	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3993	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3994	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3995	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3996	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3997	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3998	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3999	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4000	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4001	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4002	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4003	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4004	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4005	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4006
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4007	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4008	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4009	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4010	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4011	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4012	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4013	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4014	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4015	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4016	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4017	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4018	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4019	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4020	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4021	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4022	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4023	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4024	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4025	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4026	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4027	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4028	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4029	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4030	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4031	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4032	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4033	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4034	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4035	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4036	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4037	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4038	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4039	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4040	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4041	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4042	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4043	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4044
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4045	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4046	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4047	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4048	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4049	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4050	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4051	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4052	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4053	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4054	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4055	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4056	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4057	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4058	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4059	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4060	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4061	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4062	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4063	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4064	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4065	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4066	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4067	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4068	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4069	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4070	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4071	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4072	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4073	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4074	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4075	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4076	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4077	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4078	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4079	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4080	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4081	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4082
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4083	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4084	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4085	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4086	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4087	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4088	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4089	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4090	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4091	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4092	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4093	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4094	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4095	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4096	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4097	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4098	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4099	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4100	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4101	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4102	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4103	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4104	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4105	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4106	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4107	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4108	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4109	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4110	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4111	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4112	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4113	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4114	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4115	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4116	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4117	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4118	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4119	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4120
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4121	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4122	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4123	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4124	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4125	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4126	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4127	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4128	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4129	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4130	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4131	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4132	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4133	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4134	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4135	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4136	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4137	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4138	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4139	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4140	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4141	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4142	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4143	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4144	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4145	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4146	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4147	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4148	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4149	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4150	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4151	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4152	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4153	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4154	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4155	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4156	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4157	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4158
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4159	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4160	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4162	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4163	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4164	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4165	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4166	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4167	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4168	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4169	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4170	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4171	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4172	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4173	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4174	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4175	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4176	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4177	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4178	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4179	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4181	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4182	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4183	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4184	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4185	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4186	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4187	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4188	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4189	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4192	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4201	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4203	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4206	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4219	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4230	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4268	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4275	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4277	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4279	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4286	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4295	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4302	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4303	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4304	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4305	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4306	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4307	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4308	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4309	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4310	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4311
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4312	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4313	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4314	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4315	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4316	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4317	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4318	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4319	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4320	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4321	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4322	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4323	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4324	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4325	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4326	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4327	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4328	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4329	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4331	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4332	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4333	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4334	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4335	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4336	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4337	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4338	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4339	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4340	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4341	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4342	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4343	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4344	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4345	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4346	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4347	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4348	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4349	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4350
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4351	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4352	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4353	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4354	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4355	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4356	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4357	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4358	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4359	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4360	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4361	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4362	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4363	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4364	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4365	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4366	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4368	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4370	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4371	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4372	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4373	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4374	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4377	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4378	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4379	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4380	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4381	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4382	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4383	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4384	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4385	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4386	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4387	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4388
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4389	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4390	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4391	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4392	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4400	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4402	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4404	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4406	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4407	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4409	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4411	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4412	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
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	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4417	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4418	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4419	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4420	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4421	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4426	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4427	self maxOldSpace value:ObjectMemory maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4428	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4429	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4431	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4432
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4433	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4434	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4435	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436	ObjectMemory incrementalGCLimit:self igcLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4437	ObjectMemory newSpaceSize:self newSpaceSize value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4438	ObjectMemory oldSpaceIncrement:self oldIncr value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4439	Process defaultMaximumStackSize:self stackLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4440	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4441	ObjectMemory maxOldSpace:self maxOldSpace value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4442	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4443	ObjectMemory dynamicCodeLimit:self codeLimit value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4444	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4445	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4446	].
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	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4451	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4452
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4453	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4454	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4455	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4456	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4457	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4458	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4460	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4462	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4463	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4464	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4465	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4466	^ codeTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4467	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4468
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4469	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4471	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4472	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4473	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4474	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4475	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4476	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4478	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4480	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4481	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4482	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4483	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4484	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4485	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4486
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4487	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4489	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4490	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4491	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4492	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4493	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4494	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4495
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4496	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4498	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4499	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4500	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4501	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4502	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4503	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4505	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4507	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4508	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4509	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4510	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4511	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4512	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4514	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4516	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4517	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4518	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4519	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4520	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4521	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4523	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4525	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4526	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4527	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4528	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4529	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4531	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4533	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4534	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4535	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4536	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4537	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4540	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4542	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4543	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4544	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4545	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4546	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4547	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4549	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4551	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4552	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4553	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4555	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4558	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4560	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4561	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4563	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4565	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4566	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4567	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4568	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4569	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4571	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4573	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4574
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4575	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4576	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4577	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4578	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4579	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4581	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4583	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4585	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4586	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4587	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4588	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4589	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4590	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4591	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4592	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4593	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4594	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4595	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4596	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4597	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4598	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4599
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4600	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4601
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4602	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4603	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4604	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4605
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4606	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4607	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4608
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4609	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4610	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4611	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4612	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4613	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4614
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4615	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4616
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4617	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4618	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4619	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	4620	@@@@_$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	4621	.+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	4622	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	4623	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	4624	[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	4625	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	4626	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4627
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4628	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4629
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4630	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4631	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4632	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4633
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4634	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4635	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4636
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4637	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4638	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4639	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4640	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4641	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4642
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4643	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4644
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4645	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4646	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4647	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4648	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4649	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4650	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4651	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4652	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4653	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4654	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4655	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4656	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4657	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4658	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4659	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4660	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4661	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4662	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4663	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4664	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4665	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4666	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4667	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4668	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4669	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4670	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4671	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4672	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4673	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4674	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4675	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4676	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4677	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4678	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4679	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4680	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4681	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4682	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4683	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4684	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4685	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4686	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4687	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4688	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4689	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4690	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4691	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4692	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4693	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4694	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4695	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4696	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4697	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4698	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4699
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4700	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4701	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4702	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4703	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4704	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4705	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4706	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4707	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4708	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4709	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4710	#style: #(#FontDescription #helvetica #bold #roman 12)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4711	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4712	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4713	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4714	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4715	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4716	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4717	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4718	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4719	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4720	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4721	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4722	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4723	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4724	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4725	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4726	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4727	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4728
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4729	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4730	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4731	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4732	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4733	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4734	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4735	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4736	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4737	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4738	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4739	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4740	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4741	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4742	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4743	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4744	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4745	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4746
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4747	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4748	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4749	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4750	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4751	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4752	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4753	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4754	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4755	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4756	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4757	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4758	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4759	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4760	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4761	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4762	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4763	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4764	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4765	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4766	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4767	#type: #password
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	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4774
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4775	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4776	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4777	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4778	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4779
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4780	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4781	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4782	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4783	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4784
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4785	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4786	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4787	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4788
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4789	)
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	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4794
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4795	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4796
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4797	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4798	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4799
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4800	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4801
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4802	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4803	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4804	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4805
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4806	loadRequest
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4807
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4808	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4809	self windowMigrationEnabled value:(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4810	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4811	self windowMigrationPassword value:WindowMigrationServer password.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4812	self windowMigrationAuthenticate value:self windowMigrationPassword value notNil.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4813	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4814	self windowMigrationPassword value:nil.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4815	self windowMigrationAuthenticate value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4816	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4817	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4818	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4819
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4820	saveSettings
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4821
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4822	self hasUnsavedChanges ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4823	self hasRemoteBrowsingSupport ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4824	self remoteBrowsingEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4825	SmalltalkShareServer serverRunning ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826	SmalltalkShareServer killAll
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4827	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4828	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4829	SmalltalkShareServer serverRunning not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830	SmalltalkShareServer start.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831	"/ must wait a bit; give it a chance to
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4832	"/ really start (before checking)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4833	Delay waitForSeconds:0.5.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834	SmalltalkShareServer serverRunning ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4835	self warn:'SmalltalkShareServer startup failed (see stderr).'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4836	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4837	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4838	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840	self hasWindowMigrationServer ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841	self windowMigrationAuthenticate value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842	WindowMigrationServer password:self windowMigrationPassword value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4843	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844	WindowMigrationServer password:nil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	self windowMigrationEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	WindowMigrationServer serverRunning ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	WindowMigrationServer stop
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4851	WindowMigrationServer serverRunning not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4852	WindowMigrationServer start.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	"/ must wait a bit; give it a chance to
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854	"/ really start (before checking)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	Delay waitForSeconds:0.5.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	WindowMigrationServer serverRunning ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857	self warn:'WindowMigrationServer startup failed (see stderr).'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4858	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4859	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4860	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4861	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4862	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4863	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4864	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4865
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4866	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4867
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4868	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4869
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4870	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4871	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4872	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	modifiedChannel isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4883	modifiedChannel := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4884	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4885	^ modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4899	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	4942	resources := self class classResources.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943	self loadRequest.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	super initialize
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	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4952	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4958	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4959	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4960	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4961	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4962	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4963
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4964	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4965
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4966	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4967	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4968
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4969	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4970
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4971	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4972	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4973	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4974
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4975	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4976	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4977
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4978	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4979	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4980	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4981	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4982	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4983
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4984	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4985
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4986	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4987	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4988	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	4989	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4990	@@@@@@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	4991	@ 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	4992	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	4993	@ 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	4994	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	4995	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4996
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4997	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4999	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5000	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5001	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5003	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5006	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5007	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5008	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5009	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5010	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5012	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5014	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5015	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5016	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5017	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5018	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5019	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5020	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5021	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5022	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5023	#bounds: #(#Rectangle 23 48 533 614)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5024	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5026	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5027	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5028	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5029	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5030	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5031	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5032	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5033	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5034	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5035	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5036	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5037	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5038	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5039	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5040	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5041	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5042	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5043	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5044	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5045	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5046	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5047	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5048	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5049	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5050	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5051	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5052	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5053	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5054	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5055	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5056	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5057	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5058	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5059	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5060	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5061	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5062	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5063	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5064	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5065	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5066	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5067	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5068	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5069	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5070	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5071	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5072	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5073	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5074	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5075	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5076	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5077	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5078	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5079	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5080	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5081	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5082	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5083	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5084	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5085	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5086	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5087	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5088	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5089	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5090	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5091	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5092	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5093	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5094	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5096	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5097	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5098	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5099	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5100	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5101	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5102	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5103	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5104	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5105	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5106	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5107	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5108	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5109	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5110	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5111	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5112	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5113	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5114	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5115	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5116	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5117	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5118	#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	5119	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5120	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5121	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5122	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5123	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5124	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5125	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5126	#layout: #(#LayoutFrame 0 0 -22 1 200 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5127	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5128	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5129	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5130	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5131	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5132	#layout: #(#LayoutFrame 200 0 -22 1 -5 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5133	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5134	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5135	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5136	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5137	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5138	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5139	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5140	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5141	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5142
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5143	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5144	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5145	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5146	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5148	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5149	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5150	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5151	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5155	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5156
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5157	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5158	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5159	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5160
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5161	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5162
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5163	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5165	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5166	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5168	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5169	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5171	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5172	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5173	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5175	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5176	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5177	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5181	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5182
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5183	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5184	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5185	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5186
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5187	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5189	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5191	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5192
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5193	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195	self takeFocus value:StandardSystemView takeFocusWhenMapped .
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true) .
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	self activateOnClick value:(Display activateOnClick:nil).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	self opaqueVariablePanelResize value:currentUserPrefs opaqueVariablePanelResizing.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199	self opaqueTableColumnResize value:currentUserPrefs opaqueTableColumnResizing.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5201	self showAccelerators value:MenuView showAcceleratorKeys.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5202	self modifiedChannel value:false.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5203
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5204	"Modified: / 16.12.2002 / 18:08:20 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	self hasUnsavedChanges ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5210	PopUpView shadows:self shadows value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5211	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5212	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5213	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5214	self newWindowLabelFormat value notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5215	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5216	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5218	Screen allScreens do:[:aDisplay \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5219	aDisplay allViewsDo:[:aView \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5220	\|l\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5222	aView isTopView ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5223	l := aView label.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5224	l notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5225	aView label:(l , ' '); label:l. "/ force a change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5226	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5227	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5228	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5229	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5230	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5231
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5232	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5233	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5235	currentUserPrefs beepEnabled:self beepEnabled value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5237	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5238	StandardSystemView takeFocusWhenMapped:self takeFocus value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5239	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5240	Screen current activateOnClick:self activateOnClick value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5241
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5242	MenuView showAcceleratorKeys:self showAccelerators value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5243	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5244	].
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5245
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5246	"Modified: / 16.12.2002 / 18:06:31 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5247	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5248
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5249	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5251	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5253	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5254	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5255	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5256	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5257	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5258	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5259
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5260	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5262	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5263	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5264	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5265	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5266	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5267	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5269	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5271	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5272	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5273	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5274	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5275	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5276	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5277
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5278	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5279
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5280	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5281	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5282	('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	5283	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5284	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5285	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5286
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5287	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5288	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5289	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5290
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5291	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5293	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5294	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5295	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5296	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5297	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5298	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5299
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5300	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5301
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5302	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5303	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5304	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5305	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5306	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5307
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5308	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5309
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5310	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5311	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5312	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5313	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5314	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5315
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5316	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5317	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5318
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5319	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5321	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5322	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5323	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5324	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5325	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5326	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5328	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5330	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5331	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5332	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5333	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5334	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5335	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5336
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5337	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5338
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5339	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5340	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5341	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5342	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5343	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5344	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5345
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5346	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5347
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5348	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5349	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5350	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5351	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5352	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5353	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5354
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5355	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5357	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5358	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5359	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5360	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5361	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5362	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5364	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5365
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5366	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5367	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5368	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5369	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5370	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5371	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5372
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5373	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5375	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5376	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5378	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5379
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5380	"/ changedObject == self allOfThem ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5381	"/ ^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5382	"/ ].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5384	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5386
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5387	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5389	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5390
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5391	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5392	currentUserPrefs := UserPreferences current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5393	self loadRequest.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5394	super initialize
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5395
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5396	"Modified: / 16.12.2002 / 17:50:59 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5397	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5398
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5399	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5400	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5402	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5405	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5406	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5407
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5408	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5409
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5410	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5411	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5412	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5413
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5414	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5415
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5416	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5418	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5419	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5422	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5429	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5430	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5432
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5433	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5436	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5437
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5438	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5439	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5440	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5441
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5442	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5443	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5444
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5445	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5446	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5447	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5448	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5449	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5450
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5451	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5452
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5453	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5454	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5455	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	5456	@@@@_$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	5457	.+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	5458	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	5459	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	5460	[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	5461	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	5462	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5463
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5464	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5465
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5466	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5467	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5468	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5469
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5470	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5471	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5472
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5473	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5474	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5475	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5476	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5477	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5478
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5479	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5480
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5481	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5482	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5483	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5484	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5485	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5486	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5487	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5488	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5489	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5490	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5491	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5492	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5493	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5494	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5495	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5496	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5497	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5498	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5499	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5500	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5501	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5502	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5503	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5504	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5505	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5506	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5507	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5508	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5509	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5510	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5511	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5512	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5513	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5514	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5515	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5516	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5517	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5518	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5519	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5520	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5521	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5522	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5523	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5524	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5525	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5526	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5527	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5528	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5529	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5530	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5531	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5532	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5533	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5534	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5535	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5536	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5537	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5538	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5539	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5540	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5541	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5542	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5543	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5544	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5545	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5546	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5547	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5548	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5549	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5550
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5551	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5552	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5553	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5554	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5555	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5556	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5557	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5558	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5559	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5560	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5561	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5562	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5563	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5564	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5565	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5566	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5567	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5568	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5569	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5570	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5571	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5572	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5573	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5574	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5575	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5576	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5577	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5578	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5579	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5580	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5581	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5582	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5583	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5584	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5585	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5586	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5587	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5588	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5589	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5590	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5591	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5592	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5593	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5594
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5595	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5596	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5597	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5598	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5599	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5600	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5602	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5603	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5604	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5605	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5606	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5607	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5614	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5616	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5618	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5622	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5624	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5631	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5632	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5636	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5640
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5644
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5645	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5646	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5647	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5649	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5655
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5656	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5657
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5658	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5660
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661	loadRequest
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5662
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5663	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5664	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5668	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5669	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5670	self osiACSEDataLogging value:OSI::ACSE dataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5672	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5673	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5674	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5675	self osiROSEResponseLogging value:OSI::ROSE responseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5676	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5677	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5678	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5679	self osiCMISEMessageLogging value:OSI::CMISE messageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5680	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5682	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5683
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5684	saveSettings
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5685
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5686	self hasUnsavedChanges ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5687	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5688	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5690	OSI::ACSE dataLogging:self osiACSEDataLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5691	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5692	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5693	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5694	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5696	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5697	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5698	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5699	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5700	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5701	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5702	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5703	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5704
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5705	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5706
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5707	modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5708
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5709	modifiedChannel isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5710	modifiedChannel := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5711	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5712	^ modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5713	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5714
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5715	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5716	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5717
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5718	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5719	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5720	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5721	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5722
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5723	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5724	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5725	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5726	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5727	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5728	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5729	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5730	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5731
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5732	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5733	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5734
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5735	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5736	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5737	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5738	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5739
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5743	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5744	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5745	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5746	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5747	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5748
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5749	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5750	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5752	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5753	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5754	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5755	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5756
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5757	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5758	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5759	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5760	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5761	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5762	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5763	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5764	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5765
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5766	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5767	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5768
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5769	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5770	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5771	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5772	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5773
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5774	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5775	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5776	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5777	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5778	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5779	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5780	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5781	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5782
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5783	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5784	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5785
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5786	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5787	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5788	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5789	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5790
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5791	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5792	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5793	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5794	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5795	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5796	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5797	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5798	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5799
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5800	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5801	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5802
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5803	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5804	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5805	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5806	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5807
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5808	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5809	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5811	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5812	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5813	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5814	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5815	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5816
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5818	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5819
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5820	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5822	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5823	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5824
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5825	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5831	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5832	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5833
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5834	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5842	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5845	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5853
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5854	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5855	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5856	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5920	resources := self class classResources.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921	self loadRequest.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	super initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5943	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5944
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5945	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5946	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5947	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5948
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5949	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5950	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5951
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5952	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5953	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5954	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5955	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5956	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5957
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5958	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5959
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5960	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5961	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5962	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	5963	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5964	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5965	@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	5966	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	5967	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5968	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	5969	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5970
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5971	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5972
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5973	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5974	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5975	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5977	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5978	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5980	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5984	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5986	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5988	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5989	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5990	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5991	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5992	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5993	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5994	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5995	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5996	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5997	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5998	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5999	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6000	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6001	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6006	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6007	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6008	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6009	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6010	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6011	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6014	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6023	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6030	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6031	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6032	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6033	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6034	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6035	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6036	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6037	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6038	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6039	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6040	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6041	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6042	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6043	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6044	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6045	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6046	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6047	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6048	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6049	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6050	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6051	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6052
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6053	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6054	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6055	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6056	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6057	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6058	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6059	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6060	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6061	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6062	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6063	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6064	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6065	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6066	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6067	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6068	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6069	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6070	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6071	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6075	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6076	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6077	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6078	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6079	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6080	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6081	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6084	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6085	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6086	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6087	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6090
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6091	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6092	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6093	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6099	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6122	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6126	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6142
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6143	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6163	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6173	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6177	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6184	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6191	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6210	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6219	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	)
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	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
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	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6242	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	#translateLabel: true
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
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6260	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6261	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6262
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6263	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6264	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6265	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6267	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6268	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6269	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6271	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6273	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6275	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6276	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6278	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6279
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6280	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6281	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6282	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6283
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6284	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6285
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6286	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6287	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6288	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6289	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6290	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6291	self printCommand value:Printer printCommand.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6292	self printerTypeSelection value:(possiblePrinters identityIndexOf:Printer).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6293	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6294	self pageFormatList notEmpty ifTrue:[
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6295	self pageFormat value:Printer pageFormat.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6296	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6297	self printerTypeSelectionOrUnitListChanged.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6298	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6299	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6300
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6301	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6303	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6304	Printer := possiblePrinters at:(self printerTypeSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6305	Printer printCommand:self printCommand value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6306
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6307	Printer supportsPageSizes ifTrue:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6308	Printer pageFormat:(self pageFormat value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6309	Printer landscape:(self landscape value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6310	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6311	Printer supportsMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6312	\| unit \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6313	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6314	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6315	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6316	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6317	].
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6318	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6319	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6320	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6321	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6322	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6323	Printer supportsPostscript ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6324	Printer supportsColor:self supportsColor value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6325	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6326	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6327	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6328	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6330	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6332	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6334	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6335	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6336	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6337	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6338	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6339	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6341	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6343	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6344	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6345	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6346	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6347	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6348
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6349	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6351	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6352	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6353	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6354	^ enableFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6355	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6356
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6357	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6359	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6360	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6361	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6362	^ enableMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6363	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6364
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6365	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6367	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6368	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6369	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6370	^ enablelandscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6371	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6373	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6375	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6376	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6377	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6378	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6379	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6382	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6384	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6385	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6386	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6387	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6388	^ leftMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6389	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6391	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6393	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6394	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6395	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6396	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6397	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6398
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6399	pageFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6400
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6401	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6402	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6403	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6404	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6405	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6406	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6407	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6408	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6409	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6410	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6411	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6412	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6413	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6415	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6417	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6418	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6419	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6420	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6421	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6423	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6424
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6425	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6426	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6427	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6428	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6429	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6430	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6432	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6434	printCommandList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6435	printCommandList := commandList asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6436	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6440	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6442	printerType isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6443	printerType := (possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6444	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6445	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6446	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6447	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6448
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6449	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6451	printerTypeSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6452	printerTypeSelection := (possiblePrinters identityIndexOf:Printer) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6453	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6454	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6455	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6456	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6457	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6458	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6459	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6460
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6461	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6463	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6464	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6465	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6466	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6467	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6468	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6470	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6472	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6473	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6474	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6476	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6477	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6478	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6481	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6482
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6483	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6484	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6485	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6486	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6487	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6488	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6490	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6491
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6492	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6493	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6494	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6495	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6497	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6499	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6501	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6503	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6505	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6507	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6509	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6511	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6512	self printerType selectionIndex ~~ 0 ifTrue:[
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6513	p := possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6514	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6515	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6516	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6517	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6518	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6519	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6520	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6522	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6524	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6526	self printerTypeSelection value ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6527	p := possiblePrinters at:(self printerTypeSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6528	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6529	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6530	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6531	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6532	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6534	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6535	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6536	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6537	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6538	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6539	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6540	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6541	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6542	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6543	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6544	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6545	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6546	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6547	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6548
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6549	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6550	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6551	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6552	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6554	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6556	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6558	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6559	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6560	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6561	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6562	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6563	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6564	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6565	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6566	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6567	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6572	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6573	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575	unitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6576	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6578	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6579	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6581	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6589	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6591	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6593	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6594
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6595	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6596	possiblePrinters := PrinterStream withAllSubclasses asArray.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6597	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6598	commandList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6599	commandList := PrinterStream defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600	commandList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601	commandList := #('lpr'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6602	'lp'
4328 a60a893cac97 * empty log message * penk parents: 4327 diff changeset	6603	) asOrderedCollection.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6605	(commandList includes:self printCommand value) not ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6606	commandList add:self printCommand value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6619	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6624	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6627	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6629	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6631
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6632	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6633	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6634	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6636	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638	printer := possiblePrinters at:(self printerTypeSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6639	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6640	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6641	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6642	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6643	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6644	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6645	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6646	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6647	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	6648	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	6649	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	6650	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6651	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6652	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6655	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6656	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6657
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6658	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6659
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6660	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6661	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6662	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6663
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6664	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6665	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6666
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6667	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6668	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6669	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6670	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6671	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6672
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6673	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6674
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6675	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6676	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6677	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	6678	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6679	@@@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	6680	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	6681	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	6682	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	6683	@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	6684	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6685
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6686	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6687
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6688	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6689	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6690	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6691
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6692	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6693	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6694
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6695	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6696	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6697	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6698	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6699	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6700
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6701	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6702
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6703	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6704	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6705	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6706	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6707	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6708	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6709	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6710	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6711	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6712	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6713	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6714	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6715	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6716	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6717	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6718	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6719	#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	6720	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6721	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6722	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6723	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6724	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6725	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6726	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6727	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6728	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6729	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6730	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6731	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6732	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6733	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6734	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6735	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6736	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6737	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6738	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6739	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6740	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6741	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6742	#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	6743	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6744	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6745	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6746	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6747	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6748
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6749	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6750	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6751	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6752	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6753
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6754	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6755	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6756	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6757
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6758	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6759	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6760	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6761
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6762	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6763
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6764	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6765
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6766	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6767	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6768
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6769	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6770
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6771	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6772	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6773	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6774
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6775	loadRequest
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6776
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6777	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6778	self dynamicPrios value:Processor supportDynamicPriorities.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6779	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6780	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6781
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6782	saveSettings
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6783
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6784	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6785	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6786	self preemptive value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6787	Processor startTimeSlicing
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6788	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6789	Processor stopTimeSlicing
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6790	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6791	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6792	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6793	Processor supportDynamicPriorities:self dynamicPrios value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6794	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6795	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6796	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6797	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6798
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6799	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6800
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6801	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6802	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6803
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6804	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6805	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6806	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6807	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6808
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6809	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6810	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6811	"/ 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	6812	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6813	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6814	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6815	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6816	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6817
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6818	modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6819
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6820	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6821	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6822	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6823	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6824	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6825
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6826	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6827	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6828
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6829	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6830	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6831	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6832	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6833
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6834	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6835	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6836	"/ 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	6837	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6838	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6839	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6840	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6841	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6842
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6843	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6845	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6846	"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	6847
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6848	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6849
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6850	"/ changedObject == self allOfThem ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6851	"/ ^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6852	"/ ].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6853
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6854	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6855	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6856
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6857	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6858
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6859	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6860
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6861	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6862	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6863	super initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6864	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6865
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6866	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6867
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6868	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6869
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6870	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6871	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6872	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6873	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6874	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6875
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6876	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6877
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6878	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6879	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6880	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6881
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6882	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6883	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6884
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6885	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6886	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6887	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6888	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6889	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6890
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6891	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6892
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6893	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6894	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6895	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	6896	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6897	@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	6898	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	6899	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	6900	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6901	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6902	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6903
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6904	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6905
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6906	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6907	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6908	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6909
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6910	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6911	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6912
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6913	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6914	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6915	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6916	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6917	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6918
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6919	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6920
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6921	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6922	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6923	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6924	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6925	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6926	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6927	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6928	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6929	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6930	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6931	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6932	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6933	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6934	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6935	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6936	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6937	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6938	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6939	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6940	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6941	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6942	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6943	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6944	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6945	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6946	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6947	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6948	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6949	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6954	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6955	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6956	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963	#enableChannel: #hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6967	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6968
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6969	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6970	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6971	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6972	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6973	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6976	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6987	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6988	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6989	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6990	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6991	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6992	#acceptOnLostFocus: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6993	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6994	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6995	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6996
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6998	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7000	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7001	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7002	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7003	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7004	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7005	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7006	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7007	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7008	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7009	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7010	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7011	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7012	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7013	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7014
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7015	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7016	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7017	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7018	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7019	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7020	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7021	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7022	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7023	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7024	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7025	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7026	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7027	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7028	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7029	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7030	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7031	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7033	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7034	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7035	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7036	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7037	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7038	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7039	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7040	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7041	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7042	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7044	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7045	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7054	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7056	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7058	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7059	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7060
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7061	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7062	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7063	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7064
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7065	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7066	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7067	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7068
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7069	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7070
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7071	evaluateModified
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7072
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7073	self modifiedChannel value:(self hasUnsavedChanges).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7074	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7075
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7076	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7077
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7078	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7079	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7081
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082	loadRequest
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7084	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7085	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7086	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7087	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7088	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7089	self rDoitServerPort value:RDoItServer defaultPortNumber.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7090	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7091	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7092	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7093	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7094	self rDoitErrorDebugging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7095	self rDoitServerPort value:nil.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7096	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7097	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7098	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7099
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7100	saveSettings
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7102	\|rDoits\|
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7103
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7104	self hasUnsavedChanges ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7105	RDoItServer defaultPortNumber:self rDoitServerPort value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7106	RDoItServer logging:self rDoitLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7107	RDoItServer errorLogging:self rDoitErrorLogging value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7108	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7109	rDoits := self rDoitsEnabled value.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7110	rDoits ~~ RDoItServer serverRunning ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7111	rDoits ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7112	RDoItServer stop
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7113	] ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7114	RDoItServer start.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7115	"/ must wait a bit; give it a chance to
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7116	"/ really start (before checking)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7117	Delay waitForSeconds:0.5.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7118	RDoItServer serverRunning ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7119	self warn:'RDoit startup failed (see stderr).'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7120	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7121	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7122	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7123	self modifiedChannel value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7124	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7125	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7126
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7127	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7128
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7129	modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7130
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7131	modifiedChannel isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7132	modifiedChannel := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7133	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7134	^ modifiedChannel
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7135	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7136
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7137	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7138
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7139	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7140	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7141	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7143	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7144	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7145
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7149	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7150	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7151	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7152	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7153	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7154
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7155	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7156
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7157	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7158	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7159	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7160	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7161	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7162	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7163
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7164	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7165
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7166	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7168	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7172
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176	rDoitsEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177	rDoitsEnabled onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184	rDoitsEnabledChanged
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7186	self rDoitsEnabled value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7187	RDoItServer isLoaded ifFalse:[RDoItServer autoload].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7188	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189	rDoitServerPort value:(RDoItServer defaultPortNumber).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7190	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7191	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7192	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7193
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7194	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7196
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7197	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7198
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7199	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7200	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7201	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7202	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7204	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7205	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7206
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7207	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209	initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7210
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7211	resources := self class classResources.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7212	self loadRequest.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7213	super initialize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7214	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7215
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7216	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7217	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7218
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7219	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7220
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7221	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7222	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7223	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7224
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7225	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7226
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7227	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7228	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7229	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7230
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7231	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7232
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7233	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7235	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7236	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7237
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7238	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7239
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7240	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7241	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7242	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7243	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7244	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7245	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7246	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7247	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7248	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7249	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7250	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7251	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7252
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7253	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7254
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7255	stcCompilationDemoStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7256
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7257	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7258	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7259
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7260	stcCompilationFullVersionStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7261
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7262	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7263	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7264
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7265	stcCompilationOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7266
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7267	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7268	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7269
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7270	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7271
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7272	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7273	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7274	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7277	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7278
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7279	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7280	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7281	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7282	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7283	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7284
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7285	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7286
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7287	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7288	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7289	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	7290	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7291	@@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	7292	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	7293	@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	7294	@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	7295	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7296	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7297
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7298	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7299
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7300	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7301	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7302	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7303
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7305	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7306
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7307	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7308	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7309	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7310	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7311	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7312
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7314
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7315	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7316	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7317	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7318	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7319	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7320	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7321	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7322	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7323	#max: #(#Point 1024 768)
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7324	#bounds: #(#Rectangle 16 46 616 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7325	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7326	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7327	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7328	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7331	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7333	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7334	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7337	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7339	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7342	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7343	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7345	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7346	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7347	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7348	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7351	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7354	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7355	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7358	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7360	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7361	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7363	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7364	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7366	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7367	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7369	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7370	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7372	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7373	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7374	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7376	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7379	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7380	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382	#model: #stc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7383	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7385	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7386	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7387	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7388	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7389
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7390	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7393	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7394	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7396	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7397	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7398	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7400	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7401	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7402	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7404	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7405	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7407	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7408	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7409	#model: #stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7410	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7411	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7412	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7413	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7414	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7415	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7416
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7417	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7418	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7422	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7424	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7428	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7430	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7432	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7434	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7435	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	#model: #cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7437	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7439	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7440	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7441	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7443
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7444	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7445	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7446	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7449	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7450	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7451	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7452	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7453	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7455	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7458	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7459	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7460	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7461	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7462	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7463	#model: #ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7464	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7465	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7466	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7467	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7468	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7469	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7471	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7472	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7473	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7474	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7475	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7480	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7482	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7483	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7484	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7485	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7486	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7488	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	#model: #stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7509	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7512	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7513	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7514	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7515	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	#model: #stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7520	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7521	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7522	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7524
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7525	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7527	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7528	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7529	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7530	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7531	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7533	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7534	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7536	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7537	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7540	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7541	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7542	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7543	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7544	#model: #linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7549	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7550	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7551
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7552	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7553	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7555	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7556	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7557	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7558	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7562	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7563	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7564	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7565	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7569	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7570	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571	#model: #linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7572	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7579	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7580	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7581	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7582	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7583	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7584	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7585	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7586	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7590	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7592	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7593	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7594	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7596	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7597	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7598	#model: #stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7605
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7606	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7607	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7609	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7611	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7614	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7617	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7618	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7620	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7623	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7624	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7625	#model: #stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7626	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629	#acceptOnPointerLeave: false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7632
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7633	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7634	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7635	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7636	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7637
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7638	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7639	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7640	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7641
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7642	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7643	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7644	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7645
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7646	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7647
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7648	evaluateModified
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7649
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7650	self modifiedChannel value:(self hasUnsavedChanges).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7651	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7652
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7653	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7654
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7655	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7656	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7657	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7658
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7659	loadRequest
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7660
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7661	self canLoadBinaries value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7662	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7663	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7664	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7665	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7666
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7667	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7668	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7669	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7670	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7671	ObjectFileLoader notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7672	\| t \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7673	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7674	self stcLibraries value:(String fromStringCollection:t separatedBy:' ').
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7675	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7676	(t := ObjectFileLoader libPath) notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7677	self stcLibraryPath value:t.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7678	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7679	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7680	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7681	self stcCompilationSelection value:(self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7682	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7683	self stcCompilationSelection value:2.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7684	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7685
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7686
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7687	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7688	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7689
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7690	saveSettings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7691
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7692	self hasUnsavedChanges ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7693	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7694	Compiler stcCompilationIncludes:self stcIncludes value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7695	Compiler stcCompilationDefines:self stcDefines value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7696	Compiler stcCompilationOptions:self stcOptions value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7697	Compiler ccCompilationOptions:self ccOptions value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7698	Compiler ccPath:self cc value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7699	self stc value ~= Compiler stcPath ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7700	Compiler stcPath:self stc value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7701	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7702	ObjectFileLoader linkCommand:self linkCommand value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7703	ObjectFileLoader linkArgs:self linkArgs value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7704	ObjectFileLoader notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7705	self stcLibraries value notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7706	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7707	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7708	stcLibraryPath notNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7709	ObjectFileLoader libPath:(self stcLibraryPath value).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7710	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7711	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7712	self modifiedChannel value:false.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7713	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7714	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7715
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7716	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7717
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7718	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7719
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7720	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7721	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7722	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7723	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7724	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7725
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7726	cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7727
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7728	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7729	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7730	cc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7731	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7732	^ cc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7733	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7734
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7735	ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7736
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7737	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7738	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7741	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7743
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7744	enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7745
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7746	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7747	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7748
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7749	linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7750
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7751	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7752	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7753	linkArgs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7754	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7755	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7756	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7757
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7758	linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7759
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7760	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7761	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7762	linkCommand onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7763	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7764	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7765	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7766
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7767	modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7768
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7769	modifiedChannel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7770	modifiedChannel := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7771	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7772	^ modifiedChannel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7773	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7774
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7775	stc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7776
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7777	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7778	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7779	stc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7780	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7781	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7782	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7783
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7784	stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7785
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7786	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7787	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7788	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7789	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7790	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7791	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7792	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7793	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7794	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7795
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7796	stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7797
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7798	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7799	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7800	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7801	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7802	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7803	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7804	stcCompilationSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7805	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7806	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7807	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7808
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7809	stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7810
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7811	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7812	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7813	stcDefines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7814	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7815	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7816	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7817
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7818	stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7819
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7820	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7821	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7822	stcIncludes onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7823	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7824	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7825	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7826
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7827	stcLibraries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7828
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7829	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7830	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7831	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7832	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7833	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7834	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7835
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7836	stcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7837
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7838	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7839	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7840	stcLibraryPath onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7841	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7842	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7843	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7844
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7845	stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7846
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7847	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7848	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7849	stcOptions onChangeSend:#evaluateModified to:self.
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	^ stcOptions.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7854	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857	"Invoked when an object that I depend upon sends a change notification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	"stub code automatically generated - please change as required"
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	"/ changedObject == self allOfThem ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862	"/ ^ self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	"/ ].
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	super update:something with:aParameter from:changedObject
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866	! !
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	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'initialization & release'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7869
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7870	initialize
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	resources := self class classResources.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7873	self loadRequest.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7874	super initialize
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7877	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7878
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7879	hasUnsavedChanges
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	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7882	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7883	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7884	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7885	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7886	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7887	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7888	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7889	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7890	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7891	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7892	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7893	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7894	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7895	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7896	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7897	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7898	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7899	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7900	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7901	]]]]]]]]]]]
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7905	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7906
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7907	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
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
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7910	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7911
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7912	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7913
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7914	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7915	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7916	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7917
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7918	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7919
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7920	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7921	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7922	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7923	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7924	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7925	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7926	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7927	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7928	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7929	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7930	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7931	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7932	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7933	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7934	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7935	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7936	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7937	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7938	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7939	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7940	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7941	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7942	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7943	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7944	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7945	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7946	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7947	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7948	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7949	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7950	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7951	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7952	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7953	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7954	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7955
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7956	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7957
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7958	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7959	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7960	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7961
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7962	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7963	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7964
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7965	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7966	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7967	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7968	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7969	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7970
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7971	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7972
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7973	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7974	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7975	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	7976	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7977	@@(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	7978	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	7979	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	7980	@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	7981	@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	7982	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7983
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7984	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7985
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7986	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7988	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7991	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7993	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7994	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7996	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7997	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7999	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8002	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8003	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8004	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8007	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8008	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8009	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8010	#bounds: #(#Rectangle 12 22 616 698)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8011	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8012	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8013	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8016	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8017	#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	8018	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8021	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8022	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8037	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8038	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8046	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8047	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8048	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8049	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8050	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8061	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8062	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8063	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8064
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8065	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8070	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8071	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8073	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8074	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8077	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8082	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8113	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8114	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8130	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8131	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8136	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8137	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8161	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8162	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8169	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8170	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8173	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8174	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181	#model: #maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8202	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8204	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8205	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8206	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8207	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8208	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8209	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8211	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8212	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213	#extent: #(#Point 293 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8217	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8218	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8219	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8220	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8221
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8222	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8223	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8224	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8225	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8226
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8227	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8228	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8229	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8230	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8231
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8232	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8233	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8234	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8235
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8236	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8237	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8238	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8239
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8240	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8241
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8242	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8243
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8244	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8245	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8246
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8247	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8248
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8249	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	8250	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8251	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8252
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8253	loadRequest
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8255	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8256	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8257	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259	self emptyLineAfterTemporaries value:RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8260	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8261	self spaceAfterKeywordSelector value:RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8263	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8264	self maxLengthForSingleLineBlocks value:RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8266	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8267	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8268	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8269
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8272	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8273	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8274	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8275
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8276	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8277	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8278	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8280	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8281	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8282	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8283	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8285	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8286	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8288
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8289	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8290	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8291	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8292	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8293	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8294	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8295	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8296	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8303	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8304	self error:'No parent for node'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8305	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8306	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8307	self editorText value:tree printString.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8308
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8309	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8310	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8311	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8312	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8313	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8317	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8318	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8319	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8320
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321	resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8322
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8323	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8324	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8325	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8326	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8328	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8329	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8330	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8331	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8332	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8335
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8336	resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8337
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8338	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8339	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8340	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8341	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8342	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8343	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8344	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8345	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8346	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8347	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8348	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8349	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8350
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8351	saveSettings
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8352
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8353	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8354	currentUserPrefs autoFormatting:self autoFormat value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8355	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8356	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8357	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8358	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8359	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8360	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8361	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8362	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8363	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8364	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8365	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8366	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8367	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8368	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8370	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8371	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8372	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8373	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8374	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8375
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8376	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8377
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8378	autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8379
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8380	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8381	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8382	autoFormat onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8383	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8384	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8385	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8386
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8387	blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8388
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8389	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8390	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8391	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8392	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8393	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8394	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8395
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8396	cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8398	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8399	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8400	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8401	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8402	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8403	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8404
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8405	editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8407	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8408	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8409	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8410	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8411	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8412
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8413	emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8414
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8415	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8416	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8417	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8418	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8419	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8420	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8421
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8422	maxLengthForSingleLineBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8425	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8426	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8427	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8428	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8429	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8430
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8431	modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8432
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8433	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8434	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8435	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8436	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8437	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8438
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8439	spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8440
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8441	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8442	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8443	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8444	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8445	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8446	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8447
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8448	spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8450	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8451	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8452	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8453	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8454	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8455	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8456
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8457	spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8458
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8459	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8460	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8461	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8463	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8464	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8465
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8466	tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8467
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8468	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8469	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8470	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8471	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8472	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8473	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8474
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8475	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8476
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8477	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8478	"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	8479
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8480	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8481
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8482	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8483	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8484	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8485	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8486	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8487	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8488	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8489	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8490	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8491	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8492	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8493	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8494	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8495	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8496	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8497
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8498	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8499
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8500	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8501
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8502	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8503	RBFormatter isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8504	^ self warn:'Sorry, no RBFormatter class'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8505	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8506
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8507	RBFormatter isLoaded ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8508	WindowGroup activeGroup withWaitCursorDo:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8509	RBFormatter autoload
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8510	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8511	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8512	currentUserPrefs := UserPreferences current.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8513	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8515	super initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8516	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8517
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8518	postBuildTextEditor:aWidget
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8519
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8520	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521	scrollWhenUpdating:nil.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8524	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8525
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8526	hasUnsavedChanges
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	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8529	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8530	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8531	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8532	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8533	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8534	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8535	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8536	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8537	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8538	]]]]]]]]
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	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8541
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8542	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8543
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8544	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8545	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8546	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8549	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8553	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8554	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8555	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8556
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8557	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8558
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8559	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8560	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8561	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	8562	@@@@@@@@@@@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	8563	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	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	8565	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	8566	@@@@@@@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	8567	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	8568	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8569
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8572	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8573	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8574	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8576	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8577	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8579	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8580	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8581	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8582	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8583	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8585	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8587	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8588	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8589	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8590	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8591	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8592	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8593	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8594	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8595	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8596	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8597	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8598	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8599	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8600	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8601	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8602	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8603	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8604	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8605	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8606	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8607	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8608	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8609	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8610	#collection: #(
4398 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	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8614	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8615	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8616	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8617	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8618	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8619	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8620	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8621	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8622	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8623	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8624	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8625	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8626	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8627	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8628	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8629	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8630	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8631	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8632	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8633	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8634
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8635	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8636	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8637	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8638	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8639	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8640	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8641	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8642	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8643	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8644	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8645	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8646	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8647	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8648	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8649	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8650	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8651	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8652	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8653	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8654	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8655	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8656	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8657	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8658	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8659	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8660	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8661	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8662	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8663	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8664	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8665	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8666	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8668	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8669	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8670
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8671	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8672	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8673	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8674	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8675	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8676	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8677	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8678	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8679	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8680	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8681	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8682	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8683	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8684	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8685	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8686	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8687	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8688	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8689	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8690	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8691	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8692	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8693	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8694	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8695	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8696	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8697	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8698	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8699	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8700	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8701	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8703
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8704	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8705	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8706	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8707	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8708	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8709	#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	8710	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8711	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8712	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8713	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8714	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8715	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8716	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8717	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8718	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8719	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8720	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8721	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8722	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8723	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8724	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8725	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8726	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8727	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8728	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8729	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8730	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8732	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8733	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8734	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8735	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8736	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8737	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8738	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8739	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8740	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8742	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8743	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8744	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8745	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8746	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8747	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8748	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8749	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8750	#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	8751	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8752	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8753	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8754	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8755	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8756	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8757	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8758	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8759	#acceptChannel: #acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8760	#acceptOnPointerLeave: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8761	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8762	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8763	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8764	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8765	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8766	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8767	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8768	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8769	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8770	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8771	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8772	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8773	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8774	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8775	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8776	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8777	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8779	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8780	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8781	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8782	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8783	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8784	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8785	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8786	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8787	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8788	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8789	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8790	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8791	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8792
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8793	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8794	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8795	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8796
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8797	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8798	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8799	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8800	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8801	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8802	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8803	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8804	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8806	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8807	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8808	#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	8809	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8810	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8813	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8814	#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	8815	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8816	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8817	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8818	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8819	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8820	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8821	#acceptOnPointerLeave: false
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
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	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8827	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8828	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8829	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8830	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8831	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8832	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8833	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8834	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8835	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8836	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8837	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8838	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8839	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8840	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8841	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8842	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8843	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8844	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8845	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8846	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8847	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8848	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8849	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8850	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8851	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8852	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8853	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8854
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8855	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8856	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8857	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8858	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8859	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8860	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8861	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8862	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8863	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8864	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8865	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8866	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8867	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8868	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8869	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8870	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8873	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8874	#extent: #(#Point 661 25)
4398 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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8877	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8878	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8879	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8880	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8881	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8882	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8883	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8884	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8885	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8886	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8887	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8888	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8889	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8890
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8891	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8892	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8893	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8894	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8895
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8896	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8897	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8898	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8899	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8901	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8902	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8903	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8905	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8906	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8907	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8908
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8909	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8911	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8913	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8914	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8915
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8916	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8917
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8918	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8919
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8920	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8921
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8922	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8923	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8924	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8925	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8926	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8927	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8928	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8929	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8930	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8931	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8932	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8933
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8934	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8936	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8937	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8939	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8941	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8942	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8944	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8946	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8947	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8949	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8951	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8952	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8953	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8955	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8957	self hasManager ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8958	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8959	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8960	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8961	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8962	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8963	repository := manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8964	repository notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8965	repositoryHolder := repository asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8966	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8967	repositoryHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8969	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8970	self cvsIsSetup value:true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8971	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8972	self useManager value: false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8973	self localSourceFirst value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8974	self cvsIsSetup value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8975	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8977	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8978	self cvsRootHolder value:CVSSourceCodeManager repositoryName ? '/files/CVS'.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8979	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8980	self perModuleRootModule value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8981	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8982	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8983
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8984	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8985
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8986	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8987
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8988	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8989	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8990	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8991	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8992	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8993	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8994	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8996	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8998	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8999	(self hasManager and:[self useManager value]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9000	manager isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9001	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9002	manager := Smalltalk at:#SourceCodeManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9003	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9004	Class tryLocalSourceFirst:self localSourceFirst value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9006	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9007	\| nm fn\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9008	nm := self sourceCacheDir value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9009	nm size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9010	(fn := nm asFilename) exists ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9011	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9012	fn makeDirectory;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9013	makeReadableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9014	makeWritableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9015	makeExecutableForAll.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9016	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9017	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9018	(fn exists
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9019	and:[fn isDirectory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9020	and:[fn isReadable
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9021	and:[fn isWritable]]]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9022	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9023	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9024	self warn:'Invalid sourceCache directory.'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9025	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9026	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9027	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9029	repositoryHolder notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9030	repositoryHolder value size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9031	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9032	manager initializeForRepository:repositoryHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9033	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9034	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9035	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9036	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9037	Smalltalk at:#SourceCodeManager put:nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9038	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9040	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9041	self acceptChannel value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9042
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9043	"/
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9044	"/ update system settings
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9045	"/
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9046	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9047	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9048	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4357 7e323adce14c add settings option allow send mail from debugger penk parents: 4328 diff changeset	9049	DebugView newDebugger.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9050	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9051	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9052	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9054	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9056	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9057	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9058	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9059	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9060	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9061	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9062	].
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9065	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9066
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9067	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9068
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9069	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9070	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9071	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9072	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9073	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9074
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9075	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9077	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9078	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9079	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9080	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9081	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9082	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9083
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9084	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9085	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9086
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9087	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9088	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9089	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9090	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9091
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9092	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9093	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9094	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9095	"/ cvsBinDirectoryHolder addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9096	"/ cvsBinDirectoryHolder onChangeSend:#cvsBinDirectoryHolderChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9097	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9098	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9099	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9100
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9101	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9103	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9104	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9105	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9106	"/ cvsIsSetup addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9107	"/ cvsIsSetup onChangeSend:#cvsIsSetupChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9108	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9109	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9110	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9111
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9112	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9113
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9114	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9115	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9116	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9117	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9118	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9119	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9120
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9121	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9122
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9123	cvsRootPrototypeList isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9124	OperatingSystem isUNIXlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9125	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9126	'/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9127	'/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9128	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9131	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9132	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9133	OperatingSystem isMSDOSlike ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9134	cvsRootPrototypeList := #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9135	':local:c:\files\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9136	':local:c:\CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9137	'host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9138	'host:/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9139	':pserver:user@host:/files/CVS'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9140	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9141	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9142	cvsRootPrototypeList := #('host:/files/CVS' 'host:/CVS' ':pserver:user@host:/files/CVS').
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9143	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9144	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9145	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9146	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9147	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9148
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9149	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9150
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9151	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9152	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9153	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9154	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9155	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9156	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9157
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9158	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9160	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9161	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9162	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9163	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9164	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9165	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9167	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9168
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9169	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9170	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9171	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9172	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9173	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9174
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9175	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9176	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9177
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9178	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9179	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9180	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9181	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9182
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9183	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9184	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9185	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9186	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9187	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9188	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9189	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9190	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9191
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9192	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9193	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9194
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9195	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9196	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9197	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9198	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9199
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9200	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9201	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9202	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9203	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9204	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9205	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9206	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9207	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9208
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9209	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9210
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9211	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9212	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9213	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9214	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9215	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9216
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9217	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9218
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9219	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9220	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9221	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9222	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9223	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9224	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9225	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9226	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9227
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9228	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9230	sourceCacheDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9231	sourceCacheDir := nil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9232	sourceCacheDir addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9233	sourceCacheDir onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9234	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9235	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9236	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9237
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9238	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9240	useManager isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9241	useManager := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9242	useManager onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9243	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9244	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9245	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9246
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9247	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9248
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9249	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9250
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9251	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9252
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9253	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9254	module := self selectedPerModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9255	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9256	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9257	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9258	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9259	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9260
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9261	sourceDirChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9262
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9263	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9264	\| nm fn\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9265	nm := self sourceCacheDir value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9266	nm size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9267	(fn := nm asFilename) exists ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9268	(self confirm:('CVS cache directory ''' , nm , ''' does not exists\create ?' withCRs)) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9269	fn makeDirectory;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9270	makeReadableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9271	makeWritableForAll;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9272	makeExecutableForAll.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9273	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9274	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9275	(fn exists
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9276	and:[fn isDirectory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9277	and:[fn isReadable
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9278	and:[fn isWritable]]]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9279	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9280	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9281	self warn:'Invalid sourceCache directory.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9282	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9283	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9284	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9285	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9286	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9288	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9289	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9291	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9293	changedObject == self sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9294	self sourceDirChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9295	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9296	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9297	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9298	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9299	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9300	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9301
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9305	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9306
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9309	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9310	currentUserPrefs := UserPreferences current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311	(AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9312	and:[AbstractSourceCodeManager isLoaded not]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9313	AbstractSourceCodeManager autoload.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9314	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9315	repositoryHolder := '' asValue.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9316	rootsPerModule := Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9317	self loadRequest.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9318	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9319	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9321	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9322	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9330	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9331
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9332	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9333	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9336	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9338	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9339	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9340	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9341	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9343	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9344
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9345	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9346	self useManager value ~= (Smalltalk at:#SourceCodeManager) notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9347	((self hasManager and:[self useManager value]) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9348	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9349	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9350	) or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9351	(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9352	CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9353	CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9354	(Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9355	]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9374
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9375	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9376
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9377	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9378	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9379	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9380
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9381	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9382	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9383
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9384	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9385	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9386	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9387	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9388	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9389
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9390	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9391
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9392	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9393	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9394	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	9395	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9396	@@@@@@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	9397	@ 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	9398	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	9399	@ 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	9400	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	9401	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9402
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9405	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9406	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9407	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9409	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9410	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9411
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9412	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9413	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9414	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9415	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9416	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9419
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9420	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9421	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9425	#label: 'Style Selection Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9426	#name: 'Style Selection Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429	#bounds: #(#Rectangle 12 22 487 553)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9432	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9433	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9434	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9435	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9436	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9437	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9438	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9439	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9440	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9441	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9442	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9443	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9444	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9445	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9446	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9447	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9448	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9449	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9450	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9451	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9452	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9453	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9454	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9455	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9456	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9457	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9458	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9459	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9460	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9461	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9462	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9463	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9464	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9465	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9466	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9467	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9468	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9471	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9472	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9473	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9474
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9475	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9477	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9479	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9482	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9486	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9490	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	\| newStyle master requestor\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497	newStyle := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498	master := self masterApplication.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499	master notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9500	requestor := master requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	self hasUnsavedChanges ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503	\| launcher \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9504	requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9505	launcher := requestor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507	\| transcript \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508	transcript := Transcript current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509	transcript notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	\| app\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511	app := transcript topView application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9512	(app respondsTo:#reopenLauncher) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513	launcher := app.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9514	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9517	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9518	Transcript showCR:'change style to ' , newStyle , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9519	View defaultStyle:newStyle asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9521	launcher notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9522	launcher reopenLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9523	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9526	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9570	^ showStandardStylesOnly.
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	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579	^ styleList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9582	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9590	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9591	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9598	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9601	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9602	"Invoked when an object that I depend upon sends a change notification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9604	"stub code automatically generated - please change as required"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9610	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9611	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9614	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9617	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9618
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9621	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9623	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9624	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9625	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9626	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9627	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9628	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9629	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9630	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9631	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9632	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9634	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9635	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9636	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9637	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9639	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9641	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9642	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9643	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9644	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9645	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9647	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9648	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9649	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9650	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9652	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9653
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9654	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9655	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9656	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9658	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9660	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9661
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	9662	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9663	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9664	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9665	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9666	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9667	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9668	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9669	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9670	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9671	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9672	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9673	resourceDir := Smalltalk getSystemFileName:'resources'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9674	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9676	resourceDir isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9677	self warn:'no styles found (missing ''resources'' directory)'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9678	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9680	styleDirectoryContents := resourceDir asFilename directoryContents.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9681	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9682	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9683	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9684	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9685	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9686	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9687	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9688	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9690	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9692	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9694	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9695	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9696
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9697	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9698
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9699	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9701	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9702	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9722
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9726
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9733	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742	fontList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9760	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9761	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9762	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	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	9784	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	9785	@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	9786	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	9787	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	9788	@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	9789	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	9790	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9805	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9817	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	#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	9826	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9869	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9878	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9879	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9883	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9884	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9886	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9887	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9889	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9890	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9891	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9892	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9893	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9894	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9895	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9897	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9898	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9899	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9900	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9901	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9902	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9903	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9904	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9905
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9906	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9907	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9909	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9910	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9914	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9915	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9919	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9920	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9922	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9923	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9924	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9925	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9926	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9927	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9928	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9929
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9930	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9931	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9933	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9934	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9935	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9936	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9937	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9938	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9943	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9947	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9948	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9950	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9951	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9952	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9953	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9954	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9955
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9956	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9957	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9958	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9959	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9960
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9964	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9965
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9966	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9967	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9968	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9969
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9970	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9971	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9972	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9975
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9976	evaluateModified
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9977
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9978	self modifiedChannel value:(self hasUnsavedChanges).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9979	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9980
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9981	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9982	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9984	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9987
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9988	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9989
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9990	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9995	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9996	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9997	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9998
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9999	loadRequest
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	\| colorList resetListLoc\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10003	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10004	(UserPreferences reset; current) declareAllFrom: oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10007	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10009	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes collect:[: entry \| entry second].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10012	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10013	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10014	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10015	self syntaxElementSelection value:(colorList at:1).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10016	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10017	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10018
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019	recolor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10021	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10023	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10025	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10026	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10028	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10029	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10030
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10031	resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10032
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10033	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10034
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10035	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10036	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10037	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10038	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10039	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10040
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10041	saveSettings
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10042
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10043	self hasUnsavedChanges ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	currentUserPrefs syntaxColoring:self syntaxColoring value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	self modifiedChannel value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10049	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10050
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10051	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10053	coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10056	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10060
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10061	fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10063	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10064	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10065	fullSelectorCheck onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067	^ fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10070	modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	modifiedChannel isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	modifiedChannel := false asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075	^ modifiedChannel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10076	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10078	resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082	"/ 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	10083	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10084	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10085	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10086	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10087	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089	resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10093	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097	syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10102	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10103	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10104	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10105
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106	syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10107
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10108	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10110	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10111	syntaxColoring onChangeSend:#evaluateModified to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10112	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10113	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10114	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10115
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10116	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10117	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10118
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10119	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10122	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10123
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	"/ 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	10127	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10131	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10132
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133	syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10137	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10139	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10140	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10141	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10143	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10144	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10145
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153	"/ 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	10154	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10156	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157	^ syntaxEmphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10158	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10162	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10163	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10166	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10170
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10174	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10175	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	syntaxColorChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10179	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10180	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10182	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10183
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	syntaxElementSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10185
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10186	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10187
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10188	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10191	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10192	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10193
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10194	syntaxEmphasisSelectionChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10202	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10203
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10204	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205	"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	10206
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207	"stub code automatically generated - please change as required"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10208
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10209	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10210	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10211	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10212	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10213	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10214	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10215	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10216	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10217	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10218	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10219	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10220	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10221	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10222	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10223	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10224	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10225
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10226
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10227	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10228	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10229
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10230	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10231
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10232	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10233
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10234	resources := self class classResources.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10235	currentUserPrefs := UserPreferences current.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10236	self initializeEmphasisDictionary.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10237	resetListDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10238	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[: entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10239	resetListDictionary at:(entry at:1) put:(entry at:2).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10240	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10241	self loadRequest.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10242	super initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10243	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10244
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10245	initializeEmphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10246
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10247	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10248	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10249	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10250	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10251	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10252	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10253	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10254	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10255	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10256	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10257	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10258	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	10259	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	10260	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10261	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10262	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	10263	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	10264	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10265	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10266	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	10267	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	10268	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10269	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10270	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	10271	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	10272	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10273	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10274	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10275	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10276	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10277	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10278	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10279	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10280	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10281	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10282
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10283	release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10284
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10285	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10286	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10287	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10288	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10289	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10290
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10291	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10292
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10293	hasUnsavedChanges
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	\|colorList colorPerformer emphasisPerformer\|
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	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10298	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10300	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10301	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10302	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10303	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10304	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10305	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10306	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10307	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10309	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10311	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10312	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10313
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	syntaxColorSelector
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	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	!
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	syntaxColorSelectorForElement:aSyntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10320
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10321	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10327	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10330
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10334	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10335
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10336	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10337	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10338	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10339
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10340	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10341	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10342
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10343	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10344	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10345	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10346	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10347	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10348
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10349	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10350
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10351	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10352	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10353	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	10354	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10355	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10356	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10357	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10358	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	10359	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	10360	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10361
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10362	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10364	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10365	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10366	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10368	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10369	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10371	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10372	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10373	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10374	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10375	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10377	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10379	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10380	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10381	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10382	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10383	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10384	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10385	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10386	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10387	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10388	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10389	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10390	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10391	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10392	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10393	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10394	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10395	#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	10396	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10397	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10398	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10399	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10400	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10401	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10402	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10403	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10404	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10405	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10406	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10407	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10408	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10409	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10410	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10411	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10412	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10413	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10414	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10415	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10416	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10417	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10418	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10419	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10420	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10421	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10422	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10423	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10424	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10425	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10426	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10427	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10428	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10429	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10430	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10431	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10432	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10433	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10434	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10435	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10436	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10437	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10438	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10439	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10440	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10441	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10442	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10443	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10444	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10445	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10447	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10448	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10449
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10450	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451	#extent: #(#Point 551 133)
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	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10454	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10455	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10456	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10457	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10458	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10459	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10460	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10461	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10462	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10463	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10464	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10465	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10466	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10467	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10468	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10469	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10470	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10471	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10472	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10473	#translateLabel: true
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	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10476	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10477	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10479	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10480	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10481	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10482	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10483	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10485	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10488	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10489	#acceptOnLostFocus: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10490	#acceptOnPointerLeave: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10491	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10494	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10496	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10497	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10498
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10499	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10500	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10501	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10502	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10504	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10505	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10506	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10508	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10509	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10510	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10512	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10514	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10516	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10517	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10519	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10521	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10522	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10524	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10526	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10527	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10528	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10529	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10530	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10531	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10532	self updChanges value:Class updatingChanges.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10533	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10534	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10536	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10537
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10538	ObjectMemory infoPrinting:self vmInfo value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10539	ObjectMemory debugPrinting:self vmErrors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10540	Object infoPrinting:self classInfos value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10541	DeviceWorkstation errorPrinting:self displayErrors value.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10542	ObjectMemory nameForChanges:self changeFileName value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10543	Smalltalk logDoits:self logDoits value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10544	Class updateChanges:self updChanges value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10545	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10546	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10548	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10549
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10550	changeFileName
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	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10553	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10554	changeFileName onChangeSend:#evaluateModified to:self
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	^ changeFileName.
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10559	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10561	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10563	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10564	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10568	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10570	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10572	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10573	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10575	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10576
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10577	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10578
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10579	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10580	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10581	logDoits onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10582	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10583	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10584	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10585
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10586	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10588	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10589	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10590	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10591	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10592	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10593
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10594	updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10595
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10596	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10597	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10598	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10599	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10600	^ updChanges.
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10603	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10605	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10606	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10607	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10608	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10609	^ vmErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10610	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10612	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10614	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10615	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10616	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10618	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10619	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10621	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10623	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10624
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10625	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10626	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10627	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10629	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10631	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10632
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10633	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10634	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10635	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10636	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10637	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10638	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10639	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10640	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10641
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10642	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10643
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10644	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10645	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10646	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10647
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10648	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10649	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10650
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10651	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10652	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10653	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10654	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10655	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10656
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10657	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10658
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10659	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10660	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10661	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	10662	@ 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	10663	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10664	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	10665	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	10666	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10667	@ 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	10668	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10669
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10670	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10672	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10673	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10674	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10676	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10677	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10679	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10680	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10681	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10682	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10683	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10685	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10687	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10688	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10689	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10690	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10691	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10692	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10693	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10694	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10695	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10696	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10697	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10698	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10699	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10700	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10701	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10702	#name: 'VerticalPanel2'
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10703	#layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10704	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10705	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10706	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10707	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10708	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10709	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10710	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10711	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10712	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10713	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10714	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10715	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10716	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10717	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10718	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10719	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10720	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10721	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10722	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10723	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10724	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10725	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10726	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10727	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10728	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10729	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10730	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10731	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10732	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10733	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10734	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10735	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10736	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10737	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10738	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10739	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10740	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10741	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10742	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10743	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10744	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10745	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10746	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10747	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10748	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10749	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10750	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10751	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10752	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10753	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10754	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10755	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10756	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10757	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10758	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10759	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10760	#(#CheckBoxSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10761	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10762	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10763	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10764	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10765	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10766	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10767	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10768	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10769	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10770	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10771	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10772	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10773	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10774	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10775	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10776	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10777	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10778	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10779	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10780	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10781	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10782	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10783	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10784	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10785	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10786	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10787	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10788	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10789	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10790	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10791	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10792	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10793	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10794	#acceptOnLostFocus: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10795	#acceptOnPointerLeave: false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10796	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10797	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10798
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10799	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10800	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10801	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10802	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10804	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10805	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10806	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10807	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10809	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10810	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10811	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10813	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10815	evaluateModified
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10816
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10817	self modifiedChannel value:(self hasUnsavedChanges).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10818	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10819
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10820	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10822	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10823	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10824
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10825	loadRequest
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10826
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10827	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10828	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10829	self transcriptBufferSize value:Transcript current lineLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10830	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10831	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10832	self useNewInspector value:currentUserPrefs useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10833	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10834	self useNewVersionDiffBrowser value:currentUserPrefs useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10835	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10836	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10837	self useNewSettingsApplication value:currentUserPrefs useNewSettingsApplication.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10838	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10839	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10840
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10841	saveSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10842
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10843	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10845	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10846	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10847	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10848	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10849	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10850	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10851	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10852	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10853	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10854	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10855	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10856	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10857	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10858	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10859	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10860	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10861	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10862	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10863	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10864	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10865	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10866	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10867	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10868	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10869	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10870	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10871	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10872	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10873	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10874	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10875	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10876	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10877	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10878	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10879	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10880	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10881	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10882	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10883	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10884	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10885	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10886	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10887	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10888	self modifiedChannel value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10889	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10891	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10892
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10893	modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10894
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10895	modifiedChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10896	modifiedChannel := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10897	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10898	^ modifiedChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10899	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10901	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10903	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10904	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10905	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10906	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10907	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10908	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10910	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10912	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10913	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10914	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10915	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10916	^ transcriptBufferSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10917	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10918
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10919	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10921	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10922	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10923	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10924	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10925	^ useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10926	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10928	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10930	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10931	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10932	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10933	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10934	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10935	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10936
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10937	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10938
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10939	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10940	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10941	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10942	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10943	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10944	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10945
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10946	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10947
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10948	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10949	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10950	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10951	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10952	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10953	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10954
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10955	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10956
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10957	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10958	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10959	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10960	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10961	^ useNewSettingsApplication.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10962	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10963
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10964	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10966	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10967	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10968	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10969	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10970	^ useNewSystemBrowser.
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	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10974
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10975	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10976	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10977	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10978	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10979	^ useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10980	!
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10981
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10982	useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10983
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10984	useProcessMonitorV2 isNil ifTrue:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10985	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10986	useProcessMonitorV2 onChangeSend:#evaluateModified to:self
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10987	].
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10988	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10989	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10991	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10992
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10993	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10994
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10995	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10996	currentUserPrefs := UserPreferences current.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10997	self loadRequest.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10998	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10999	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11001	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11003	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11005	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11006	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11007	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11008	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11009	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11010	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11011	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11012	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11013	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11014	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11015	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	11016
4226 44e2f83cc526 initial checkin penk parents: diff changeset	11017	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	11018
44e2f83cc526 initial checkin penk parents: diff changeset	11019	version
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11020	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.24 2003-01-21 15:52:56 penk Exp $'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	11021	! !

author	penk
	Tue, 21 Jan 2003 16:53:25 +0100
changeset 4464	997576abcb7f
parent 4457	24b31e9f0ebf
child 4495	051b2b75fb78
permissions	-rw-r--r--