hg/stx-libtool: AbstractSettingsApplication.st@45341d5a8867 (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
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	4	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel requestor'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	5	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	6	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	7	category:'Interface-Smalltalk'
4226 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
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	11	instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	12	warnCommonMistakes warnUnderscore keepSource constantFolding
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	13	warnCompatibility constantFoldingOptions warnings warnSTX
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	14	allowDollar allowReservedWordsAsSelectors immutableArrays
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	15	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	16	warnUnusedVars allowSqueakExtensions justInTimeCompilation
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	17	canLoadBinaries constantFoldingSelection enableUnderscore
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	18	enableDollar'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	19	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	20	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	21	privateIn:AbstractSettingsApplication
4286 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
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	25	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	26	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	27	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	28	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	29	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	30
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	31	AbstractSettingsApplication subclass:#DisplaySettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	32	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	33	clipEncodingListSelection sizeX monitorList ditherList
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	34	clipEncodingList ditherListSelection deepIcons monitorSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	35	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	36	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	37	screenDepthVisualLabelHolder'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	38	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	39	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	40	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	41	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	42
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	43	AbstractSettingsApplication subclass:#EditSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	44	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	45	searchDialogIsModal startTextDragWithControl'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	46	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	47	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	48	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	49	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	50
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	51	AbstractSettingsApplication subclass:#FontSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	52	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	53	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	54	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	55	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	56	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	57	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	58	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	59	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	60
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	61	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	62	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	63	searchDialogIsModal startTextDragWithControl catchClassRedefs
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	64	fullHistoryUpdate historyLines keepSourceSelection keepSource
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	65	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	66	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	67	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	68	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	69	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	70
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	71	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	72	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	73	hasCreatedServerChannel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	74	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	75	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	76	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	77	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	78
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	79	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	80	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	81	labelTextHolder functionKeyList rawKeyList mappings'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	82	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	83	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	84	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	85	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	86
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	87	AbstractSettingsApplication subclass:#LanguageSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	88	instanceVariableNames:'languageHolder languageList listOfLanguages translatedLanguages
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	89	noticeLabelHolder currentLanguageChannel currentLanguageLabel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	90	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	91	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	92	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	93	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95	AbstractSettingsApplication subclass:#MemorySettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	96	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	97	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	98	igcFreeAmount stackLimit supportsJustInTimeCompilation'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	99	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	100	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	101	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	104	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	105	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	106	windowMigrationPassword windowMigrationAuthenticate
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	107	enablePasswordCheck'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	108	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	109	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	110	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	111	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	112
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	113	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	114	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	115	activateOnClick shadows opaqueVariablePanelResize
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	116	formatHostNameinWindowLabels opaqueTableColumnResize
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	117	hostNameInLabelHolder showAccelerators newWindowLabelFormat
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	118	formatHostNameWindowLabel'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	119	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	120	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	121	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	122	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	123
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	124	AbstractSettingsApplication subclass:#OsiSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	125	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	126	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	127	osiCMISEMessageLogging osiACSEDataLogging
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	128	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	129	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	130	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	131	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	132	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	133
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134	AbstractSettingsApplication subclass:#PrinterSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	135	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	136	landscape pageFormatList pageFormat unitList leftMargin
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	137	possiblePrinters printerType printerTypeSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	138	printCommandList commandList printCommand enableFormat
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	139	enablelandscape enableMargins enableColorBox'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	140	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	141	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	142	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	143	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	144
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	145	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	146	instanceVariableNames:'dynamicPrios preemptive'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	147	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	148	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	149	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	150	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	151
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	152	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	153	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	154	rDoitErrorDebugging rDoitServerPort'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	155	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	156	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	157	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	158	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	159
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	160	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	161	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	162	stcDefines stcLibraries stcOptions stcLibraryPath
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	163	stcCompilationSelection stcCompilationList'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	164	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	165	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	166	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	167	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	168
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	169	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	170	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	171	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	172	blockArgumentsOnNewLine spaceAfterReturnToken
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	173	spaceAroundTemporaries oldUserPreferences reformatLocked'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	174	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	175	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	176	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	177	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	179	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	180	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	181	syntaxColorConfiguration setupSourceCodeManager
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	182	checkClassesWhenCheckingIn formattingConfiguration
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	183	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	184	manager repository listOfModules cvsRootPrototypeList
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	185	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	186	removePerModuleRoot perModuleRoot cvsRootHolder
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	187	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	188	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	189	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	190	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	191	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	193	AbstractSettingsApplication subclass:#StyleSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	194	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	195	styleDirectoryContents infoLabelHolder noticeLabelHolder'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	196	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	197	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	198	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	199	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	200
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	201	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	202	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	203	fullSelectorCheck syntaxColoring oldUserPreferences
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	204	syntaxFontSelector syntaxFonts syntaxElementList
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	205	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	206	emphasisDictionary resetListDictionary'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	207	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	208	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	209	privateIn:AbstractSettingsApplication
4398 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
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	213	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	214	changeFileName'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	215	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	216	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	217	privateIn:AbstractSettingsApplication
4286 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
4846 4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	221	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	222	showClockInLauncher useNewChangesBrowser useNewFileBrowser
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	223	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	224	useProcessMonitorV2'
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	225	classVariableNames:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	226	poolDictionaries:''
4b91af5b1f82 * empty log message * penk parents: 4845 diff changeset	227	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229
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
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	244	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	245
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	246	requestor
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	247	"return the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	248
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	249	^ requestor
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	250	!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	251
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	252	requestor:something
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	253	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	254
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	255	requestor := something.
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	256	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	257
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	258	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	259
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	260	evaluateModified
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	261	self hasUnsavedChanges ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	262	self modifiedChannel value:true
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	263	].
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	264	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	265
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	266	saveRequest
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	267	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	268
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	269	(self hasUnsavedChanges) ifTrue:[
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	270	self askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	271	result := self confirmWithCancel:(resources
97ccd5a946f4 next step penk parents: 4813 diff changeset	272	string:'Save changed ' , settingsString , ' ?').
97ccd5a946f4 next step penk parents: 4813 diff changeset	273	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	274	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	275	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	276	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	277	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	278	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	279	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	280	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	281	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	282	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	283	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	284	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	285	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	286	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	287
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	288	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	289	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	290	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	291	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	292	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	293	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	294
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	295	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	296
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	297	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	298
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	299	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	300	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	301	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	302	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	303	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	304
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	305	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	306
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	307	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	308	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	309	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	310	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	311	settingsString := (UISpecification from:(self class windowSpec)) window label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	312	self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	313	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	314
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	315	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	316
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	317	askForChangeOnRelease
4847 05d296c94b4b * empty log message * penk parents: 4846 diff changeset	318	^ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	319	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	320
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	321	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	322
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	323	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	324	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	325
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	326	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	327
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	328	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	329	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	330
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	331	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	332
289972d3e455 * empty log message * penk parents: 4319 diff changeset	333	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	334	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	335	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	336	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	337
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	338	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	339	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	340	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	341
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	342	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	343
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	344	self basicSaveSettings.
4657 a59ba78d52d2 reset UserPrefernces instance on saveSettings because Userpreferences current may change penk parents: 4656 diff changeset	345	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	346	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	347	! !
44e2f83cc526 initial checkin penk parents: diff changeset	348
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	349	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	351	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	352
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	353	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	354	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	355
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	357
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	358	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	359	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	360
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	361	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	362
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	363	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	364	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	365	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	366
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	367	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	368	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	369
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	370	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	371	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	372	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	373	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	374	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	375
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	376	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	377
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	378	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	379	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	380	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	381	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	382	@@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	383	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	384	@@@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	385	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	386	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	387	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	388
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	389	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	391	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	392	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	393	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	395	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	396	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	397
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	398	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	399	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	400	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	401	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	402	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	404	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	406	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	407	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	408	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	409	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	410	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	411	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	412	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	413	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	414	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	415	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	416	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	417	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	418	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	419	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	420	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	421	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	422	#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	423	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	424	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	425	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	426	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	427	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	428	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	429	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#extent: #(#Point 600 25)
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	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#model: #allowOldStyleAssignment
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: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	538	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	539	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	545	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	546	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	547	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	548	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	549	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	550	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	551	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	552	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	554	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	555	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	556	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	557	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	558	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	559	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	560	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	561	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	562	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	563	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	564	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	565	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	566	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	567	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	568	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	569	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	570	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	571	)
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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	575	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	576	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	577
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	578	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	579	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	580	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	581	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	582	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	583	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	584	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	585	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	586	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	587	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	588	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	589	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	590	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	591	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	592	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	593	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	594	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	595	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	596	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	597	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	598	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	599	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	600	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	601	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	602	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	603	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	604	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	605	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	606	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	607	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	608	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	609	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	610	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	611	#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	612	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	613	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	614	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	615	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	616	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	617	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	618	#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	619	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	620	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	621	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	622	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	623	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	624	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	625
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	626	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	627	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	628	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	629	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	630
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	631	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	632	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	633	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	634
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	635	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	636	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	637	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	638
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	639	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	640
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	641	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	649	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	650	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	651	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	653	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	668	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	669	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	670	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	671	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	672	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	673	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	674	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	675	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	676	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	677	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	678
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	679	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	680
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	681	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	682	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	683
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	684	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	685	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	686	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	687	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	688	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	689	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	690	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	691	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	692	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	693	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	694	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	695	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	696	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	697	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	698	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	699	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	700	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	701	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	702	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	703	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	704	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	705	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	706	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	707	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	708	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	709	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	710	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	711	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	712	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	713	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	714	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	715	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	716	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	717	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	718	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	719	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	720	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	722	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	724	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	725	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	726
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	727	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	729	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857	^ fullDebugSupport.
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	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	^ immutableArrays.
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	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	^ warnUnusedVars.
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	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	956	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	960	changedObject value ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	977	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	984	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	987	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	988	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	989	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	993	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1001	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1006	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1009	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1010
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1011	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1012	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1013
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1014	^ ToolbarIconLibrary bugReporter24x24Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1015	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1016
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1017	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1018
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1023	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1026	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1027	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1039	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1040	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043	#bounds: #(#Rectangle 16 42 616 362)
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	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1050	#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	1051	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#translateLabel: true
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	)
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	#extent: #(#Point 600 30)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1110	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1111	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114
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	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1117	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1123	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1124
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1125	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1126	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1127	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1128
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1129	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1130	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1131	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1132
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1133	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1134
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1135	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1136
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1137	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1138	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1139	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1140	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1141	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1142	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1143	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1144	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1145
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1146	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1147
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1148	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1149	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1150	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1151
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1152	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1153	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1154	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1155	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1156	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1158	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1159	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1160
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1163	allowSendMailFromDebugger
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	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1166	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1167	allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1168	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1175	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176	showErrorNotifier onChangeSend:#evaluateModified to: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	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	!
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	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1184	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1185	showVerboseStack onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
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	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1195	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1197	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1198	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	)
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1202	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1203
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1204	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1206	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1207	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1208
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1209	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1211	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1234	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1235
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1236	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1237	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1238	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1239
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1240	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1241	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1242
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1243	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1244	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1245	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253	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	1254	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	@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	1256	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	1257	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	1258	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1259	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1260	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1262	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1264	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1265	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1266	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1268	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1269	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1272	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1273	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1274	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1282	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1288	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1332	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1350	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	)
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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1455	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1456
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1457	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1458
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1459	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1460	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1461	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1462	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1463	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1464	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1466	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1467	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1471	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1474	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1475	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1476	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1477	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1478	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1479	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1480	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1487	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1488
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1489	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1490	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1491	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1492
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1493	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1494	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1495
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1496	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1498	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1499	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1500	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1501
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1502	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1503	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1510	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1511	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1512	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1513	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1514	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1515	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1516	self modifiedChannel value:false
4286 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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1521	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1523	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1524	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	^ clipEncodingListSelection.
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	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	^ deepIcons.
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	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	^ isColorMonitor.
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	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	^ useFixGrayPaletteLabel.
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	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	^ useFixPalette.
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	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	^ useFixPaletteLabel.
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	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	^ visualIsPseudoColor.
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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1729
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1731
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1732	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1739	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1755	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1756
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	]]]]]]]
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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1794	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1795
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1796	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1797	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1798	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1799
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1800	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1801	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1802
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1803	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1804	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1805	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1806	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1807	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1808
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1809	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1810
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1811	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	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	1814	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1815	@@(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	1816	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	1817	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	1818	@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	1819	@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	1820	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1821
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1822	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1824	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1825	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1826	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1832	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1833	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1834	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1844	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1845	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1848	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1855	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1860	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#verticalSpace: 3
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	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1910	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1924	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1925
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1926	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1927	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1928	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1929	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1930	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1931	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1932	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1933	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1934	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1935	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1936	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1938	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1940	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1941	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1942	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1944	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1945	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1946	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1947	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1948	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1949	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1950	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1951	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1952	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1953	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1954	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1956	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1958	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2049	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2050
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2051	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2052	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2053	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2054
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2055	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2056	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2057
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2058	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2059	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2060	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2061	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2062	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2063
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2064	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2065
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2066	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2067	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068	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	2069	@@@@@@@@@@@@@@@@@@@@@!!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	2070	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	2071	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	2072	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2073
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2074	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2075	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2076	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2078	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2081	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2082	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2084	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2085	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2086
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2087	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2088
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2089	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2091	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	2092	@@@@@@@@@@@@@@@@@@@@@!!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	2093	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	2094	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	2095	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2096
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2097	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2098
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2099	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2101	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2115	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2119	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2120	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2121	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2126	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	#max: #(#Point 1024 768)
4727 3e5f6ddd50d8 no bold labels Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	2135	#bounds: #(#Rectangle 16 46 512 658)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2140	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2141	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2142	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2143	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2145	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2146	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2147	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2148	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2149	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2150	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2151	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2152	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2153	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2154	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2155	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2156	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2157	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2158	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2159	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2160	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2161	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2162	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2163	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2164	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2165	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2166	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2167	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2168	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2171	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2172	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2175	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2186	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2189	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2190	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2191	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2192	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2195	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2196	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2200	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2201	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2256	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2263	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2297	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2371	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2372	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2374	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2375	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2376	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2378	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2379	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2380	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2382	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2384	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2386	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2388	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2389	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2390	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2394	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2395
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2396	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2397	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2398	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2399	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2400	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2401	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2402	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2403	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2404
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2405	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2406	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2407
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2408	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2409	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2410	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2411	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2412	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2413	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2414	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2415	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2416	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2417	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2418	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2419	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2420	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2421
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2422	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2424	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2426	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2427	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2428	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2429	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2430	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2431	self buttonDef value:(f onDevice:buttonsLabel device).
4286 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	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2436	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2441	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2443	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2444	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2455	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2467	self menuDef value:(f onDevice:menuLabel device).
4286 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	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2479	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	]
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	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2485	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2489	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2496	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	^ allOfThem
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	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2532	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	^ buttonsFontLabelHolder.
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	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2550	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2568	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	^ listsFontLabelHolder.
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	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2586	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2604	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2612	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2613	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2614	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2615	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2616	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2617	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2618	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2619	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2621	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2622	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2623	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2624	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2625	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2626	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2627	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2628	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2629	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2630	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2631	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2632	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2633	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2634	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2635	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2636	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2637	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2639	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2640
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2641	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2642	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2643	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2644	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2645	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2646	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2647	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2648	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2649
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2650	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2651	\| f label\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2652
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2655	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656	label := f isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657	''
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2658	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2659	f userFriendlyName
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2660	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2661	fontNameHolder value:label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2662	self evaluateModified.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2663	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2665	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2697	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2698	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2699	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2700	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2714	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2715
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2716	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2717
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2718	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2719	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2720
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2721	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2722
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2723	^ #('Keep 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	2724	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2725
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2726	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2727
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2728	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2729	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2730	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2731
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2732	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2733	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2734
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2735	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2736	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2737	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2738	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2739	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2740
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2741	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2742
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2743	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2744	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2745	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	2746	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2747	@@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@@@@
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	2748	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@PDA@PDA@PDA@PDA@PDA@PD@@@H@@@DA@P@@@@@A@PD@@@@A@PDA@@@B@@@A@PD@@PDA@@D@@PDA@@DA@P@@@ @@@PDA
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	2749	@@DA@P@A@@DA@PDA@PD@@@H@@@DA@P@@@@@A@P@A@PDA@PDA@@@B@@@A@PD@@PDA@@D@@PDA@PDA@P@@@ @@@PDA@@DA@P@A@@DA@P@A@PD@@@H@@@DA@P@@
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	2750	@@@A@PD@@@@A@PDA@@@B@@@A@PDA@PDA@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2751	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	2752	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2753
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2754	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2755
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2756	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2757	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2758	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2759
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2760	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2761	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2762
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2763	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2764	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2765	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2766	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2767	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2768
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2770
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2771	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2772	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2773	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2774	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2775	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2776	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2777	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2781	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2782	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787	#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	2788	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2789	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2792	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2793	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2795	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2824	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	#useIndex: true
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	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2846
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	#extent: #(#Point 600 30)
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	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	#extent: #(#Point 600 3)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2872	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2874	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2875
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2876	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2877	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2878	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2879	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2880	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2881	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2882	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2883	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2884	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2885	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2886	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2887	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2888	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2889
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2892	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2893	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2894	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2895
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2896	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2897	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2898	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2899	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2901	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2902	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2903	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2906	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2907	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2908	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2909	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2910	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2911	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2912	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2913	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2918	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2919
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2920	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2923	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2924	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2928	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2930	catchClassRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2934
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2937	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2938	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	catchMethodRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2944	fullHistoryUpdate
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2954	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2956
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2959	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2964	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2965	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966	historyLines onChangeSend:#evaluateModified to:self.
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	^ historyLines.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	keepSource := (resources array:(self class keepSourceStrings)) asList.
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	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2982	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	keepSourceSelection onChangeSend:#evaluateModified to:self.
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	^ keepSourceSelection.
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	loadBinaries
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	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	loadBinaries:= false asValue
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	loadBinaries onChangeSend:#evaluateModified to:self.
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	^ loadBinaries.
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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3014	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3015
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3016	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'documentation'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3017
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3018	version
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3019	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.62 2003-05-13 15:21:48 cg Exp $'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3020	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3021
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3022	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3023
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3024	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3025	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3026	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3027
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3028	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3029	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3030
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3031	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3032	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3033	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3034	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3035	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3036
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3037	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3038
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3039	^Icon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3040	constantNamed:#'HTTPStartServerSettingsApplication class defaultIcon'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3041	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3042	@@@@@HQ-M!!T6M&5-\@@@@@@@@@@@@@@@@GT4HB,1DS$9NUQ0@@@@@@@@@@@@@F<3JP\MG X9NSL9RG@@@@@@@@@@@GT2GQ\C@0LIJ%L3O11J\@@@@@@@(XP4
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3043	LA$C@0LCAA<''F"8,F4V3@KT@+0A-JCD]@0LCNT-MSEAPS49V$7L@@@@@MQ@XFPLCNE!!XVE!!XVE!!XVE!!X@@@@@AT$APLC@5"9-K6?1LSD1LFJQ@@@@@@KEBT&
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3044	CPMX*R-+Z2+(JZX\DP@@@@@@RL1LR,NVJ8:.K"7-%&I%GAD@@@@@D$OK3D1HU"[%IRT%IRT%I]0Q@@@@@A=@!!L1KQYXJ"(*J"(.8:T\DP@@@@@)THRLQ$C
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3045	VJ"(J"(IBO%''AD@@@@@@B:P2HL@5"K"8.K"8.K"8M0Q@@@@@@@@J]FB@MX0K0:N#(:N,B2\DP@@@@@@@@@,T\;VJ#B0<OC0<N>&GAD@@@@@@@@@@@@*U"(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3046	0<OC0<OC0I!!0Q@@@@@@@@@@@@@AXLU<#HVF$,BX\DP@@@@@@@@@@@@@VJ#C@@@@@@CC&GAD@@@@@@@@@@@@@E"(''92\''I2\(9!!0Q@@@@@@@@@@@@@AXIVO
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3047	#8>O#9*X\DP@@@@@@@@@@@@@VJ!!>&Y:B"I:M&GAD@@@@@@@a') ; colorMapFromArray:#[0 0 0 0 0 80 0 0 159 0 0 255 0 2 253 0 7 248 0 8 235 0 8 247 0 14 223 0 16 239 0 20 55 0 20 60 0 32 223 0 35 220 0 47 207 0 50 205 0 60 195 0 64 175 0 64 181 0 64 191 0 74 181 0 80 0 0 87 167 0 90 164 0 92 163 0 97 157 0 102 142 0 103 133 0 107 112 0 111 143 0 114 140 0 115 139 0 127 79 0 127 127 0 150 76 0 159 95 0 165 89 0 184 71 0 191 64 0 200 33 0 207 0 0 208 45 0 213 0 0 225 30 0 235 20 0 240 15 0 243 0 0 244 11 0 245 8 0 255 0 6 132 42 6 168 6 10 149 10 17 41 72 17 96 17 25 25 25 25 25 232 28 28 227 30 30 30 33 32 152 35 35 35 35 35 133 40 40 40 42 131 42 45 45 45 50 50 50 51 51 111 51 55 105 52 52 52 54 60 76 54 116 54 60 60 88 60 60 103 62 61 141 62 62 125 65 64 193 65 104 153 65 112 145 65 136 121 65 160 97 65 192 65 68 68 68 71 111 71 76 121 76 77 76 205 80 80 80 85 100 85 95 95 95 97 97 97 98 207 98 103 103 103 104 104 104 107 105 186 107 106 235 109 108 236 109 109 109 111 109 147 111 111 111 111 111 255 114 113 162 114 114 210 116 116 116 117 117 117 118 116 165 118 117 245 118 118 118 119 117 158 119 119 119 120 120 120 120 159 120 127 127 127 130 146 130 131 129 131 132 131 191 135 135 135 136 135 136 138 138 246 142 142 142 143 143 143 143 143 255 147 145 147 147 146 174 147 146 227 150 148 230 151 149 151 151 151 151 153 150 153 155 153 155 156 154 156 156 155 240 157 156 157 159 157 86 159 159 159 162 160 162 162 161 162 162 162 242 163 161 163 164 163 164 165 164 165 166 164 76 166 164 166 168 165 168 168 166 168 172 169 172 173 170 173 173 171 222 174 172 174 175 174 175 176 173 176 178 175 178 181 178 181 182 179 182 184 181 184 184 182 184 186 183 186 187 184 187 187 187 251 188 186 188 189 188 189 189 188 237 189 197 189 190 190 190 191 189 191 192 191 220 194 192 194 194 194 194 195 193 195 196 196 196 197 194 197 197 197 197 198 195 198 200 191 194 200 192 195 200 197 200 201 199 201 202 202 202 203 202 203 204 204 204 205 203 205 206 206 206 207 204 207 207 207 207 208 147 148 208 157 158 208 207 208 211 208 211 211 211 211 214 213 214 215 213 224 217 215 217 218 217 218 219 217 219 222 220 222 223 222 223 224 223 229 228 227 236 229 228 229 233 232 233]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<D??>(???@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3048	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3049
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3050	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3051
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3052	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3053	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3054	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3055
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3056	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3057	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3058
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3059	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3060	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3061	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3062	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3063	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3064
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3065	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3066
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3067	^
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3068	#(#FullSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3069	#name: #windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3070	#window:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3071	#(#WindowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3072	#label: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3073	#name: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3074	#min: #(#Point 10 10)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3075	#max: #(#Point 2048 1024)
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3076	#bounds: #(#Rectangle 16 42 555 672)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3077	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3078	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3079	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3080	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3081	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3082	#name: 'VerticalPanel1'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3083	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3084	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3085	#verticalLayout: #top
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3086	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3087	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3088	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3089	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3090	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3091	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3092	#name: 'VerticalPanel4'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3093	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3094	#verticalLayout: #topSpace
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3095	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3096	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3097	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3098	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3099	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3100	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3101	#name: 'Box19'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3102	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3103	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3104	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3105	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3106	#label: 'Label'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3107	#name: 'Label2'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3108	#layout: #(#LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3109	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3110	#labelChannel: #informationLabel
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3111	#resizeForLabel: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3112	#adjust: #left
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3113	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3114	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3115
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3116	)
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3117	#extent: #(#Point 539 200)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3118	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3119	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3120	#name: 'Box18'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3121	#extent: #(#Point 539 20)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3122	)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3123	#(#ViewSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3124	#name: 'Box17'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3125	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3126	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3127	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3128	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3129	#label: 'Port:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3130	#name: 'Label1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3131	#layout: #(#LayoutFrame 3 0 21 0 40 0 43 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3132	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3133	#adjust: #right
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3134	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3135	#(#InputFieldSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3136	#name: 'EntryField1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3137	#layout: #(#LayoutFrame 40 0 20 0 100 0 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3138	#model: #portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3139	#type: #number
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3140	#immediateAccept: true
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3141	#acceptOnReturn: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3142	#acceptOnTab: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3143	#acceptOnLostFocus: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3144	#acceptOnPointerLeave: false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3145	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3146	#(#ActionButtonSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3147	#label: 'Create new HTTP Server'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3148	#name: 'Button4'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3149	#layout: #(#LayoutFrame 125 0 20 0 -5 1 42 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3150	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3151	#model: #createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3152	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3153	#(#ActionButtonSpec
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3154	#label: 'Remove all HTTP Servers'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3155	#name: 'Button5'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3156	#layout: #(#LayoutFrame 125 0 51 0 -5 1 73 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3157	#translateLabel: true
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3158	#model: #removeAllServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3159	#enableChannel: #hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3160	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3161	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3162
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3163	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3164	#extent: #(#Point 539 90)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3165	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3166	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3167
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3168	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3169	#extent: #(#Point 539 620)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3170	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3171	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3172
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3173	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3174	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3175	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3176
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3177	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3178	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3179	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3180
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3181	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3182
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3183	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3184
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3185	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3186	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3187
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3188	createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3189
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3190	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3191
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3192	port := self portNumberChannel value.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3193	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3194	runningServers notEmpty ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3195	runningServers do:[:aServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3196	aServer port = port asInteger ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3197	Dialog warn:'There is already a Server for port ', port asString.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3198	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3199	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3200	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3201	].
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3202	runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3203
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3204	self withWaitCursorDo:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3205	newServer := HTTPServer new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3206	newServer port:port.
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	3207	"/ newServer setupDefaults.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3208	self createServerApplication:newServer forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3209	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3210	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3211
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3212	createServerApplication:aServerInstance
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3213
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3214	self createServerApplication:aServerInstance forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3215	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3216
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3217	createServerApplication:aServerInstance forDefault:isDefaultApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3218
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3219
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3220	\|settingsApp settingsAppPosition newItem openApps\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3221
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3222	openApps := self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3223	((openApps detect:[:app \| app httpServerInstance == aServerInstance] ifNone:[nil]) notNil) ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3224	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3225	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3226	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3227	settingsApp := HTTPServerSettingsAppl basicNew.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3228	settingsApp requestor:self requestor.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3229	isDefaultApplication ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3230	settingsApp isDefaultSettingsDialog:isDefaultApplication
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3231	] ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3232	settingsApp httpServerInstance:aServerInstance.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3233	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3234	settingsApp basicInitialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3235	settingsAppPosition := requestor getNameOfApplication:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3236	isDefaultApplication ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3237	settingsAppPosition := settingsAppPosition , '/HTTPServer Default Settings'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3238	] ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3239	settingsAppPosition := settingsAppPosition , '/HTTPServer Port ', aServerInstance port asString.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3240	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3241	newItem := requestor addApplClass:#'HTTPServerSettingsAppl' withName:settingsAppPosition.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3242	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3243	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3244	requestor expandItemForApplication:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3245	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3246	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3247
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3248	createServerSubApplicationsForRunningServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3249
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3250	\|runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3251
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3252	self createServerApplication:nil forDefault:true.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3253	HTTPServer isLoaded ifFalse:[ ^ self].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3254
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3255	runningServers := HTTPServer runningServers asOrderedCollection.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3256	runningServers isEmpty ifTrue:[ ^ self].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3257	runningServers sort:[:a :b \| a port < b port].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3258	runningServers do:[:aHttpServerInstance \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3259	self createServerApplication:aHttpServerInstance forDefault:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3260	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3261	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3262
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3263	readSettings
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3264	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3265	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3266	HTTPServer runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3267	].
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3268	self createServerSubApplicationsForRunningServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3269	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3270	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3271	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3272
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3273	removeAllServerSubApplications
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3274
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3275	\|apps\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3276
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3277	apps := requestor getApplicationsByClass:HTTPServerSettingsAppl.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3278	apps do:[:aApp \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3279	aApp isDefaultSettingsDialog ifFalse:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3280	requestor removeByApplication:aApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3281	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3282	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3283	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3284
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3285	removeAllServers
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3286	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3287	HTTPServer terminateAllServers.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3288	].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3289	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3290	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3291	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3292
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3293	setPortOnFreePort
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3294
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3295	\| createdServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3296	createdServer := (self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) collect:[:setApp \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3297	setApp httpServerInstance.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3298	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3299	createdServer size = 1 ifTrue:[
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3300	HTTPServer isLoaded ifFalse:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3301	self portNumberChannel value:8080.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3302	] ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3303	self portNumberChannel value:(HTTPServer defaultPort).
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3304	].
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3305	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3306	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3307	self portNumberChannel value:0.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3308	createdServer do:[:aHttpServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3309	(aHttpServer notNil and:[aHttpServer port >= (self portNumberChannel value asInteger)]) ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3310	self portNumberChannel value:(aHttpServer port + 1).
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3311	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3312	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3313	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3314
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3315	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3316
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3317	hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3318	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3319
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3320	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3321	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3322	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3323	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3324
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3325	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3326	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3327	"/ if your app needs to be notified of changes, uncomment one of the lines below:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3328	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3329	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3330	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3331	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3332	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3333
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3334	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3335	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3336	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3337	default:
4843 720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3338	'These dialogs provides two things
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3339	1. Setup the default server settings
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3340	2. control individual running servers (if you want to handle
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3341	multiple servers on multiple ports).
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3342	The default servers'' settings are specified in the
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3343	"HTTPServer Default Settings" entry.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3344	The settings for a new server are taken from
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3345	the default server settings or from the http server instance
4843 720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3346	settings file'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3347	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3348
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3349	portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3350
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3351	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3352	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3353	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3354	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3355	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3356
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3357	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3358
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3359	createdServerChanged
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3360
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3361	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3363	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3364
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3365	runningServersChanged
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3366	self createServerSubApplicationsForRunningServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3367	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3368	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3369
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3370	update:something with:aParameter from:changedObject
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3371	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3372	changedObject == HTTPServer runningServers ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3373	self runningServersChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3374	^ self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3375	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3376	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3377	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3378	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3379
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3380	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3381
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3382	release
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3383	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3384	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3385	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3386	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3387
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3388	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3389
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3390	hasCreatedServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3391
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3392	^ ((self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) size > 1)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3393	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3394
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3395	hasUnsavedChanges
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3396
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3397	^ false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3398	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3399
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3400	help
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3401
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3402	self warn:'no help available here'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3403	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3404	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3405
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3406	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3407
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3408	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3409	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3410	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3411
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3412	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3413	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3414
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3415	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3416	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3417	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3418	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3419	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3420
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3421	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3422
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3423	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3424	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3425	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	3426	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3427	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3428	@@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	3429	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3430	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3431	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3432	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3433
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3434	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3436	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3437	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3438	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3440	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3441	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3443	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3444	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3445	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3446	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3447	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3448
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3456	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3457	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3460	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3467	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3534	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3535	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3542
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3543	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3544	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3545
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3551	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3552	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3595	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3648	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3653	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3727	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3735	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3737	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3739	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3741	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3742	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3743
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3744	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3745
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3746	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3747	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3748	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3749
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3750	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3751	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3752
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3753	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3754	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3755	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3756	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3757	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3758
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3759	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3760
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3761	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3762	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3763	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	3764	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3765	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	3766	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	3767	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	3768	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	3769	@@@@@@@@@@@@@@@@@@@@@@@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	3770	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3771
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3774	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3775	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3782	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3783	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3784	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3798	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3805	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3810	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3814	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3838	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3839	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3840	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3841	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3842	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3843	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3844	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3845	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3846	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3847	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3848	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3849	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3850	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3851	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3852	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3853	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3854	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3855	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3856	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3857	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3858	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3859	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3860	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3861	#model: #rereadResourceFiles
4737 b513890618b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3862	#extent: #(#Point 228 22)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3863	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3864	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3865
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3866	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3867	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3884	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3914	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3918
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	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	3934	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3954	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3956	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3957	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3958	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3963	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3964	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3965	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3966	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3967	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3969	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3970	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3971	self currentLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3972	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3973
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3974	doubleClick:aEntry
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3975
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3976	self saveSettingsIfUnsavedChangesArePresent.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3977	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3978
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3979	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3980
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3981	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3982	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3983
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3984	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3985	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3986	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3987	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3988	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3989
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3990	rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3991	ResourcePack flushCachedResourcePacks.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3992
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3993	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3994	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3995
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3996	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3997	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4058	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4085	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	languageList := translatedLanguages with:flags collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4088
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4089	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4102	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4103	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4104	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4106	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4108	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4109	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4110
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4111	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4112
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4113	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4114	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4115	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4116
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4117	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4118	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4119
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4120	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4121	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4122	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4123	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4124	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4125
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4126	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4127
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4128	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4129	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4130	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	4131	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4132	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4133	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	4134	@ 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	4135	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4136	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	4137	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4138
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4139	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4140
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4149	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4150	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4151	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4160	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4168	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4169	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4170	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4171	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4172	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4176	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4177	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4178	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4179	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4181	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4182	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4183	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4184	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4185	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4186	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4187	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4188	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4189	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4192	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4201	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4203	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4206	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4219	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4230	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4239	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4268	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4275	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4277	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4279	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4286	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4295	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4302	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4303	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4304	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4305	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4306	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4307	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4308	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4309	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4310	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4311	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4312	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4313	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4314	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4315	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4316	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4317	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4318	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4319	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4320	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4321	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4322	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4323	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4324	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4325	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4326	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4327	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4328	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4329	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4331	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4332	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4333	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4334	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4335	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4336
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4337	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4338	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4340	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4341	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4342	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4343	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4344	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4345	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4346	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4347	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4348	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4349	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4350	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4351	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4352	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4353	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4354	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4355	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4356	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4357	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4358	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4359	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4360	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4361	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4362	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4363	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4364	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4365	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4366	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4368	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4370	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4371	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4372	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4373	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4374
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4378	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4379	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4380	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4381	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4382	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4383	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4384	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4385	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4386	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4387	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4388	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4389	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4390	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4391	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4392	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4393	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4394	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4395	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4396	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4397	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4398	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4399	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4400	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4401	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4402	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4403	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4404	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4405	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4406	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4407	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4408	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4409	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4410	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4411	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4412
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4413	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4414	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4415	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4416	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4417	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4418	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4419	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4420	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4421	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4422	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4423	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4424	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4425	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4426	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4427	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4428	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4429	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4430	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4431	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4434	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4435	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4436	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4437	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4438	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4439	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4440	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4441	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4442	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4443	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4444	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4445	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4446	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4447	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4448	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4449	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4450
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4451	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4452	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4453	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4454	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4455	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4456	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4457	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4458	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4459	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4460	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4461	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4462	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4463	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4464	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4465	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4466	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4467	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4468	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4469	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4470	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4471	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4472	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4473	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4474	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4475	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4476	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4477	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4478	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4479	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4480	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4481	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4482	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4483	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4484	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4485	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4486	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4487	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4488
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4489	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4490	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4491	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4492	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4493	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4494	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4495	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4496	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4497	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4498	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4499	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4500	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4501	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4502	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4503	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4504	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4505	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4506	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4507	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4508	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4509	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4510	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4511	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4512	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4513	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4514	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4515	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4516	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4517	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4518	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4519	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4520	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4521	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4522	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4523	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4524	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4525	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4533	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4536	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4537	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4538	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4545	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4547	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4552	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4553	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4556	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4557	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4563	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4583	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4592	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4595	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4596	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4597	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4598	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4599	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4600	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4601	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4602	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4603	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4604
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4605	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4606	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4607	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4608	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4610	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4611	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4612	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4614	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4615	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4616	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4618	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4619
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4620	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4621
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4622	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4623	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4624	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4625	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4626	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4627	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4628	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4629	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4630	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4631	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4632	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4633	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4634
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4635	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4636
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4637	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4638	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4639	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4640
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4641	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4642	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4643	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4644	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4645	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4646	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4647	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4648	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4649	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4650	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4651	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4652	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4653	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4654	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4656	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4658	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4659
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4660	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4661	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4662	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4664	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4667	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4669	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4670	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4671	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4672	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4673	^ codeTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4674	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4676	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4678	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4679	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4680	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4681	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4682	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4683	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4685	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4686
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4687	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4688	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4689	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4690	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4691	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4692	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4694	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4695
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4696	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4697	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4698	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4699	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4700	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4701	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4703	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4705	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4706	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4707	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4708	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4709	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4710	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4712	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4714	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4715	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4716	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4717	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4718	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4719	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4721	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4722
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4723	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4724	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4725	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4726	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4727	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4730	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4732	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4733	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4734	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4735	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4736	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4741	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4750	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4754	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4762	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4774	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4783	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4784	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4785	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4786	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4791	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4792	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4793	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4794	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4795	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4796	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4797
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4798	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4799
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4800	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4801	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4802	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4803
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4804	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4805	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4806
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4807	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4808	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4809	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4810	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4811	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4812
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4813	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4814
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4815	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4816	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4817	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	4818	@@@@_$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	4819	.+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	4820	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	4821	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	4822	[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	4823	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	4824	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4825
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4827
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4828	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4829	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4832	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4833	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4835	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4836	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4837	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4838	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4843	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4851	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4852	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4858	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4859	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4860	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4861	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4862	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4863	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4864	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4865	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4866	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4867	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4868	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4869	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4870	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4871	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4872	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4883	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4884	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4885	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4899	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4942
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4945	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4946	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4947	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4952	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4958	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4959	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4960	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4961	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4962	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4963	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4964	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4965	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4966	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4967	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4968	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4969	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4970
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4971	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4972	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4973	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4974	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4975
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4976	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4977	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4978	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4979	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4980
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4981	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4982	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4983	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4984
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4985	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4986	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4987	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4988
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4989	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4990
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4991	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4992
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4993	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4994	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4995	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4996	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4997	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4998	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4999	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5000	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5001	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5002	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5003	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5004	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5005	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5006	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5007	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5008	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5009	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5010	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5011	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5012	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5013	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5014	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5015	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5016	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5017	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5018	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5019	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5020	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5021	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5022	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5023	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5024	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5025	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5026	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5027	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5028	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5029	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5030	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5031	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5032	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5034	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5035
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5036	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5037	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5038	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5039
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5040	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5041	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5042	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5043	self windowMigrationEnabled value:(self hasWindowMigrationServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5044	and:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5045	WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5046	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5047	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5048	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5049	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5050	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5051	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5052	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5053	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5054	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5055	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5056	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5057
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5058	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5059
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5060	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5061
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5062	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5063	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5064	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5065	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5066	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5067	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5068	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5069	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5070	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5071
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5072	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5073
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5074	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5075	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5076	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5077	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5078	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5079	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5080
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5081	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5082
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5083	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5084	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5085	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5086	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5087	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5088	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5089
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5090	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5091
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5092	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5093	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5094	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5095	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5096	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5097	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5098
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5099	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5100
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5101	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5102	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5103	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5104	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5105	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5106	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5107
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5108	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5110	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5111	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5112
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5113	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5114
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5115	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5116	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5117	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5118
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5119	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5120	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5121
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5122	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5123
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5124	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5125	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5126	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5127	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5128
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5129	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5130
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5131	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5132
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5133	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5134	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5135
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5136	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5137
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5138	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5139	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5140	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5141	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5142	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5143	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5144	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5145
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5146	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5148	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5149	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5150
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5151	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5153	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5154	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5155	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5156
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5157	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5158	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5162	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5163	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5164	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5165
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5166	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5167
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5168	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5169	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5170	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	5171	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5172	@@@@@@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	5173	@ 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	5174	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	5175	@ 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	5176	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	5177	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5178
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5179	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5181	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5182	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5183	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5184
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5185	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5186	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5187
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5189	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5190	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5191	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5192	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5193
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5201	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5202	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5203	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5204	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5205	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5210	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5211	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5212	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5213	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5214	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5215	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5216	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5217	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5218	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5219	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5220	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5221	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5222	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5223	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5224	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5225	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5226	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5227	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5228	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5229	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5230	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5231	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5232	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5233	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5234	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5235	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5236	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5237	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5238	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5239	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5240	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5241	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5242	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5243	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5244	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5245	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5246	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5247	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5248	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5249	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5250	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5251	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5252	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5253	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5254	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5255	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5256	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5257	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5258	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5259	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5260	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5261	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5262	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5263	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5264	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5265	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5266	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5267	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5268	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5269	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5270	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5271	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5272	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5273	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5274	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5275	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5276	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5277	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5278	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5279	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5280	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5281	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5282	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5283	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5284	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5285	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5286	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5287	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5288	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5289	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5290	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5291	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5292	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5293	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5294	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5295	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5296	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5297	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5298	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5299	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5300	#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	5301	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5302	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5303	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5304	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5305	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5306	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5307	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5308	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5309	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5310	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5311	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5312	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5313	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5314	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5315	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5316	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5317	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5318	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5319	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5320	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5321	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5322	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5323	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5324
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5325	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5326	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5327	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5328	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5329
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5330	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5331	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5332	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5334
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5338
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5339	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5340	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5341	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5342
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5343	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5344
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5345	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5346
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5347	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5348	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5349	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5350	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5351	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5352	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5353	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5354
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5355	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5356	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5357	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5358
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5359	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5360	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5361	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5362	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5363	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5364	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5365	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5366	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5367	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5368
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5369	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5370	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5371
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5372	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5373
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5374	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5375	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5376	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5377	Screen current activateOnClick:self activateOnClick value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5378
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5379	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5380
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5381	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5382	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5383
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5384	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5387	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5388	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5389	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5391	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5392	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5393	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5394	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5395	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5397	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5398
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5399	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5400	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5401	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5402
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5403	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5405	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5406	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5407	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5408	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5409	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5410	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5411	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5412	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5413	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5414	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5415	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5416	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5417	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5418	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5419	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5422	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5429	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5436	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5440	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5445	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5447	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5448	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5449	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5450
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5451	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5452
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5453	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5454	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5455	('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	5456	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5457	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5458	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5459
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5460	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5461	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5462	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5463
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5464	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5466	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5467	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5468	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5469	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5472
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5473	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5474
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5475	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5476	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5477	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5478	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5479	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5480
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5481	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5482	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5483
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5486	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5487	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5488	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5489	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5490	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5491	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5496	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5500	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5505	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5506	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5507	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5508	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5509	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5514	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5515	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5518	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5520	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5522	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5523	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5524	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5526	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5527	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5529	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5532	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5535	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5536	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5537
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5538	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5540	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5541	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5543	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5545	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5546	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5549	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5551	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5552	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5553	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5554
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5555	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5557	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5560	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5563	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5564	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5565	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5567	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5568	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5569	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5570	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5571	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5572	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5573
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5574	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5575	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5576
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5577	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5578
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5579	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5580	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5581	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5582
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5583	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5584	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5585
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5586	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5587	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5588	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5589	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5590	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5591
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5592	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5593
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5594	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5595	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5596	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	5597	@@@@_$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	5598	.+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	5599	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	5600	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	5601	[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	5602	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	5603	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5604
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5606
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5618	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5622	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5631	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5632	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5636	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5640	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5644	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5645	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5646	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5647	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5649	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5655	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5656	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5657	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5658	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5659	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5660	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5662	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5663	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5664	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5667	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5668	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5669	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5670	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5672	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5673	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5674	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5675	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5676	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5677	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5678	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5679	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5680	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5682	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5683	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5684	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5685	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5686	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5687	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5688	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5689	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5690	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5691
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5692	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5693	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5694	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5696	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5697	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5698	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5699	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5700	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5701	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5702	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5703	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5704	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5705	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5706	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5707	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5708	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5709	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5710	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5711	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5712	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5713	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5714	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5715	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5716	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5717	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5718	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5719	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5720	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5721	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5722	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5723	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5724	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5725	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5726	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5727	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5728	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5729	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5730	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5731	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5732	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5733	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5734	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5735
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5736	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5737	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5738	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5739	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5743	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5744	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5745	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5746	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5747	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5748	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5749	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5750	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5752	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5753	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5754	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5755	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5756	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5757	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5758	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5759	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5760	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5761	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5762	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5763	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5764	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5765	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5766	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5767	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5768	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5769	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5770	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5771
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5772	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5773	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5774	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5775	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5776
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5777	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5778	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5779	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5780	)
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	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5784	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5785
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5786	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5787	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5788	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5789
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5790	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5791
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5792	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5793
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5794	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5795	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5796	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5797	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5798	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5799	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5800	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5801	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5802	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5803	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5804	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5805	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5806	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5807	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5808	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5809
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5811
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5812	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5813	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5814
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5815	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5816	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5818	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5819	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5820	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5822	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5823	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5824	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5825	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5827	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5831	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5832	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5833	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5834	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5842	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5845
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5853	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5854
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5855	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5856	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5947
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5954	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5958	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5961	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5964
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5971	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5978	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5986	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5995	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6000	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6008	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6010
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6014	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6023	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6024
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6025	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6026
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6027	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6028
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6029	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6030	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6031	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6032	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6033	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6034	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6035	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6036	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6037	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6038	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6039	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6040	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6041	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6042
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6043	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6044
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6045	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6046	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6047	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6048
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6049	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6050	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6051
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6052	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6053	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6054	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6055	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6056	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6057
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6058	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6059
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6060	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6061	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6062	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	6063	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6064	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6065	@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	6066	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	6067	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6068	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6069	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6070
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6071	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6072
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6073	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6074	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6075	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6076
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6077	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6078	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6079
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6080	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6081	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6084	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6085
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6086	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6088	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6089	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6090	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6091	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6092	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6093	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6094	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6095	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6096	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6097	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6098	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6099	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6100	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6101	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6106	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6107	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6108	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6109	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6110	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6111	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6122	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6126	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6142	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6143	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6163	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6173	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6177	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6184	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6193	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6210	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6226	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6230	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6263	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6267	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6271	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6291	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6293	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6295	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6299	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6301	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6303	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6305	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6307	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6309	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6310	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6311	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6312	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6314	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6319	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6323	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6326
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6327	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6331
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6332	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6333	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6334	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6335	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6336	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6337	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6338	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6339
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6340	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6341	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6342	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6343	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6344	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6345	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6346	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6347	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6348	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6349	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6350	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6351	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6352	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6353	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6354	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6355	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6356	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6357
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6358	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6359	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6360	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6361	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6362
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6367	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6368	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6369	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6371	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6372
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6373	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6374
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6375	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6376	Printer printCommand:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6377
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6378	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6379	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6380	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6381	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6382	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6383	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6384	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6385	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6386	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6387	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6388	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6389	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6390	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6391	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6392	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6393	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6394	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6395	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6396	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6397	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6398
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6399	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6400
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6401	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6402	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6403	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6404
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6405	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6406	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6407	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6408	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6409	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6410	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6411	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6412	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6413	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6414	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6415	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6416	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6417	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6418	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6419	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6420	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6421
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6422	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6424	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6426	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6427	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6428	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6429	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6430	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6431	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6432
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6433	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6434
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6435	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6436	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6439	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6440
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6441	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6443	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6444	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6445	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6446	^ enableFormat.
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	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6450
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6451	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6452	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6453	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6454	^ enableMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6455	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6457	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6459	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6460	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6461	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6462	^ enablelandscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6463	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6465	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6466
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6467	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6468	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6469	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6470	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6471	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6472	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6474	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6476	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6477	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6478	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6480	^ leftMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6481	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6482
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6483	pageFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6485	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6486	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6487	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6488	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6489	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6490	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6491	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6492	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6493	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6494	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6495	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	^ pageFormat.
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	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6501	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6503	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504	^ pageFormatList.
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	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6509	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6510	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6511	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6512	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6513	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6514	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6516	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6517
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6518	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6519	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6521	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6522	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6524	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6526	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6527	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6528	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6529	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6530	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6531	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6533	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6535	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6536	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6537	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6538	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6539	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6540	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6541	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6542	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6543	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6545	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6547	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6548	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6549	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6550	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6551	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6552	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6554	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6556	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6557	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6558	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6559	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6560	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6562	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6563	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6565	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6567	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	^ 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	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6576	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6577	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6578	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6579	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6580	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6581	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588	^ unitList.
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:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6593	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6595	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6596	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6597	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6598	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6599	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6602	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6604	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6606	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6608	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6611	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6619	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6620	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6624	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6627	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6629	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6630	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6631	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6632
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6633	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6634	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6635	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6636	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6639	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6640	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6642	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6643	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6644	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6645	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6646	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6647	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6648	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6649	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6650	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6651	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6652	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6655	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6656	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6657	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6659	unitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6660	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6662	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6663	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6664	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6665	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6666	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6667
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6668	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6669	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6671	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6673	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6674	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6676	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6678	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6679	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6680	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6682	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6684	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6685	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6686	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6688	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6689
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6690	commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6691	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6692	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6693	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6694	commandList := PrinterStream defaultCommands.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6695	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6696	commandList := #('lpr'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6697	'lp'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6698	) asOrderedCollection.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6699	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6700	(commandList includes:self printCommand value) not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6701	commandList add:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6702	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6703	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6704	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6705	^ commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6706	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6707
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6708	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6711	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6712	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6713	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6714	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6715	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6716	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6717	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6718	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6719	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6720	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6721	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6722	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6723	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6724	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6725	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6726	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	6727	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	6728	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	6729	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6730	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6731	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6732	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6733	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6734	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6735	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6736
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6737	possiblePrinters
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6738	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6739	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6740	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6741	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6742	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6743
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6744	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6745
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6746	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6747	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6748	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6751	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6755	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6756	Icon flushCachedIcons
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	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6762	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6763	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	6764	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6765	@@@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	6766	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	6767	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	6768	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	6769	@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	6770	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6771
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6772	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6775	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6776	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6777
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6778	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6779	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6783	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6784	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6785	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6786
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6787	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6788
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6789	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6790	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6791	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6792	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6793	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6794	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6795	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6796	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6797	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6798	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6799	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6800	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6801	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6802	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6803	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6804	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6805	#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	6806	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6807	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6808	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6809	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6810	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6811	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6812	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6813	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6814	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6815	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6816	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6817	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6818	#extent: #(#Point 600 22)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6821	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6822	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6823	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6824	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6825	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6826	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6827	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6828	#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	6829	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6830	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6831	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6832	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6835	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6836	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6837	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6838	)
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	)
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
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6846	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6847
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6848	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6849
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6850	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6851
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6852	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6853	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6854	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6855	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6856	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6857	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6858	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6859	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6860	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6861	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6862	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6863
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6864	help
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	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6867	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6868	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6869
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6870	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6871	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6872	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6873	self modifiedChannel value:false
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6876	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6877
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6878	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6879	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6880
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6881	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6882	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6883	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6884	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6885
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6886	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6887	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6888	"/ 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	6889	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6890	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6891	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6892	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6893	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6894
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6895	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6896	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6897
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6898	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6899	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6900	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6901	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6902
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6903	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6904	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6905	"/ 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	6906	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6907	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6908	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6909	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6910	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6911
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6912	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6913
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6914	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6915
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6916	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6917	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6918	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6919	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6920	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6921
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6922	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6923
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6924	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6925	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6926	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6927
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6928	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6929	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6930
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6931	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6932	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6933	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6934	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6935	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6936
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6937	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6938
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6939	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6940	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6941	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	6942	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6943	@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	6944	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	6945	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	6946	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6947	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6948	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6949
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6954	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6955
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6956	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	<resource: #canvas>
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	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6969	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6970	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6971	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6972	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6973	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6976	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6987	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6988	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6989	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6990	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6991	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6992	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6993	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6994	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6995	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6996	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6998	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7000	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7001	#name: 'Box1'
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: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7007	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7008	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7009	#enableChannel: #hasRDoitServerClass
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7010	#model: #rDoitsEnabled
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: 'Box2'
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	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7024	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7025	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7026	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7027	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7028	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7030	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7031	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7033	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7034	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7035	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7036	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7037	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7038	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7039	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7040	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7041	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7042
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7044	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7045	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7054	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7056	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057	#translateLabel: true
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	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7063	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7064	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7065	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7066	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7067	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7068	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7069	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7070	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7071	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7072	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7073	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7074	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7075	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7076	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7077	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7078
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7079	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7081	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7084	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7085	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7086	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7087	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7088	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7089	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7090	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7091	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7092	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7093	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7094	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7095	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7096
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7097	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7098	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7099	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7100	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7102	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7103	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7104	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7105	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7106
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7107	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7108	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7109	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7110
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7111	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7112	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7113	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7114
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7115	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7116
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7117	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7118
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7119	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7120
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7121	RDoItServer defaultPortNumber:self rDoitServerPort value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7122	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7123	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7124	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7125	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7126	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7127	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7128	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7129	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7130	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7131	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7132	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7133	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7134	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7135	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7136	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7137	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7138	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7139	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7140
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7141	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7143	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7144	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7145	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7147	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7149	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7150	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7151	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7152	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7153	self rDoitServerPort value:RDoItServer defaultPortNumber
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7154	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7155	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7156	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7157	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7158	self rDoitErrorDebugging value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7159	self rDoitServerPort value:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7160	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7161	self modifiedChannel value:false
4310 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	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7165
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7166	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7168	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7172	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7186	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7187	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7188	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7190	^ rDoitLogging.
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	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7194
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7196	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7197	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7198	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7199	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7200	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7201
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7202	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7204	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7205	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7206	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7207	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7210
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7211	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7212
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7213	rDoitsEnabledChanged
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7214	self evaluateModified.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7215	self rDoitsEnabled value ifTrue:[
4840 4f74aeb5e4d2 autoload is understood by all classes (dummy if already loaded) Claus Gittinger <cg@exept.de> parents: 4831 diff changeset	7216	RDoItServer autoload.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7217	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7218	rDoitServerPort value:(RDoItServer defaultPortNumber).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7219	]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7220	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7221	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7222
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7223	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7224	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7225	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7226	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7227	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7228
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7229	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7230	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7231
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7232	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7233
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7235	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7236
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7237	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7238
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7239	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7240	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7241	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7242
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7243	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7244
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7245	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7246	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7247	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7248
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7249	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7250
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7251	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7252
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7253	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7254	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7255
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7256	hasRDoitServerClass
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7257	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7258	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7259
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7260	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7261
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7262	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7263	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7264	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7265	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7266	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7267	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7268	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7269	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7270	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7271	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7272	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7273	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7274
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7277	stcCompilationDemoStrings
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	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7280	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7281
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7282	stcCompilationFullVersionStrings
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	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7285	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7286
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7287	stcCompilationOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7288
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7289	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7290	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7291
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7292	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7293
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7294	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7295	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7296	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7299	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7300
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7301	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7302	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7303	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7305	"
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	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7308
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7309	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7310	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7311	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	7312	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	@@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	7314	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	7315	@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	7316	@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	7317	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7318	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7319
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7320	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7321
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7322	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7323	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7324	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7327	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7328
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7331	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7333	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7334
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7337	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7339	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7342	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7343	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7345	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7346	#bounds: #(#Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7347	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7348	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7351	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#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	7354	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7355	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7358	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7360	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7361	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7363	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7364	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7366	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7367	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7369	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7370	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7372	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7373	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7374	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7376	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7379	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7380	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7383	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7385	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7386	#extent: #(#Point 600 29)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7389	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7390	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7393	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7394	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7396	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7397	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7398	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7400	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7401	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7402	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7404	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7405	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7407	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7408	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7409	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7410	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7411	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7412
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7413	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7414	#extent: #(#Point 600 35)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7417	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7418	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7422	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7424	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7428	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7430	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7432	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7433	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7434	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7435	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7437	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7439	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7440
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	#extent: #(#Point 600 35)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7445	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7446	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7449	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7450	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7451	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7452	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7453	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7455	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7458	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7459	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7460	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7461	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7462	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7463	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7464	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7465	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7466	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7467	)
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	#extent: #(#Point 600 35)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7473	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7474	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7475	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7480	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7482	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7483	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7484	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7485	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7486	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7488	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7489	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7493	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494	)
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	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7508	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7512	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7513	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7514	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7515	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7517	#acceptOnLeave: true
4387 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
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7521	#acceptOnPointerLeave: true
4387 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 35)
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: 'Box6'
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: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	#name: 'Label6'
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: 'EntryField6'
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: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7545	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7549	#acceptOnPointerLeave: true
4387 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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7555	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7556	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7557	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7558	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7562	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7563	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7564	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7565	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7570	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7572	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7573	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7577	#acceptOnPointerLeave: true
4387 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
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	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7583	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7584	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7585	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7586	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7590	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7592	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7593	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7594	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7596	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7597	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7598	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7601	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7605	#acceptOnPointerLeave: true
4387 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	)
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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7611	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7614	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7617	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7618	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7620	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7623	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7624	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7625	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7626	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7629	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7632	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7633	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7634	)
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	#extent: #(#Point 600 31)
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	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7641	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7642	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7643	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7644	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7645	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7646	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7647	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7648	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7649	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7650	#adjust: #right
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	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7653	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7654	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7655	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7656	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7657	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7658	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7659	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7660	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7661	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7662	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7663	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7664
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7665	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7666	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7667	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7668	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7669
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7670	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7671	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7672	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7673
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7674	)
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	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7677
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7678	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7679
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7680	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7681
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7682	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7683	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7684	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7685	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7686	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7687	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7688	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7689	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7690	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7691	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7692	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7693	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7694	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7695	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7696	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7697	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7698	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7699	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7700	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7701	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7702
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7703	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7704
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7705	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7706	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7709	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7710	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7711	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7712	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7713	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7714	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7715	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7716	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7717	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7718	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7719	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7720	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7721	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7722
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7723	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7724	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 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	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7727	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7728	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7729	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7730	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7731	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7732	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7733	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7734	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7735	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7736	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7737	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7738	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7741
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742	canLoadBinaries
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	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7745	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7746	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7747	^ canLoadBinaries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7750	cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7751
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7752	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7753	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7754	cc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7755	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7756	^ cc.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7759	ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7760
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7761	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7762	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7763	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7764	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7765	^ ccOptions.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7768	enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7769
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7770	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7773	linkArgs
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	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7776	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7777	linkArgs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7778	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7779	^ linkArgs.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7782	linkCommand
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	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7785	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7786	linkCommand onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7787	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7788	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7789	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7791	stc
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	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7794	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7795	stc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7796	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7797	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7798	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7799
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7800	stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7801
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7802	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7803	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7804	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7805	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7806	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
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	^ stcCompilationList.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7812	stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7813
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7814	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7815	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7816	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7817	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7818	stcCompilationSelection := 2 asValue.
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	stcCompilationSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7821	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7822	^ stcCompilationSelection.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7825	stcDefines
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	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7828	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7829	stcDefines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7830	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7831	^ stcDefines.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7834	stcIncludes
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	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7837	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7838	stcIncludes onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7839	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7840	^ stcIncludes.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7843	stcLibraries
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	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7846	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7847	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7848	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7849	^ stcLibraries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7852	stcLibraryPath
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	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7855	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	stcLibraryPath onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861	stcOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7864	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865	stcOptions onChangeSend:#evaluateModified to:self.
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	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7868	! !
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	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7873
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7874	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7875	searchedLibs := ObjectFileLoader searchedLibraries.
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	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7878	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7879	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7880	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7881	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7882	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7883	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7884	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7885	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7886	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7887	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7888	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7889	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7890	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7891	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7892	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7893	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7894	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7895	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7896	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7897
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7898	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7899
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7900	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
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
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7903	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7904
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7905	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7906
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7907	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7908	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7909	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7910
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7911	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7912
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7913	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7914	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7915	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7916	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7917	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7918	Transcript showCR:''hello''. "/ condition
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	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7921	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7922	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7923	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7924	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7925	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7926	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7927	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7928	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7929	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7930	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7931	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7932	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7933	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7934	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7935	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7936	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7937	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7938	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7939	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7940	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7941	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7942	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7943	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7944	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7945	^ self.
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	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7948
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7949	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7950
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7951	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7952	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7953	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7954
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7955	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7956	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7957
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7958	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7959	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7960	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7961	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7962	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7963
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7964	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7965
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7966	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7967	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7968	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	7969	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7970	@@(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	7971	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	7972	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	7973	@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	7974	@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	7975	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7976
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7977	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7978
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7979	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7980	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7981	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7984	the UIPainter may not be able to read the specification."
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	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7988	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7991
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992	<resource: #canvas>
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	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7996	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7997	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7998	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7999	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8000	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8002	#max: #(#Point 1024 768)
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8003	#bounds: #(#Rectangle 16 42 620 718)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8004	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8007	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8008	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8009	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8010	#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	8011	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8012	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8013	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8016	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8017	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8018	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8021	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8022	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8037	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8038	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8046	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8047	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8048	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8049	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8050	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8061	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8062	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8063	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8064	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8065	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8070	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8071	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8073	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8074	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8077	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081	)
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: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086	#model: #emptyLineAfterTemporaries
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105	)
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 '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	#model: #spaceAfterKeywordSelector
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8114
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129	)
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: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	#model: #cStyleBlocks
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8161	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8162	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8169	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8173	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8174	#model: #maxLengthForSingleLineBlocks
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8175	#type: #number
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8179	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8202	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8204	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8205	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8206	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8207	#extent: #(#Point 293 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8208	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8209	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8211	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8212	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8216	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8217	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8218	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8219	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8220
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8221	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8222	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8223	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8224	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8225
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8226	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8227	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8228	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8229
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8230	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8231	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8232	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8233
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8234	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8235
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8236	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8237
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8238	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8239	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8240	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8241	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8242	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8243	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8244	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8245	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8246	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8247	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8248	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8249	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8250	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8251	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8252	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8253	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8254	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8255	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8256	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8257
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8260	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	8261	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8263
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8264	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8266	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8267	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8268	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8269	self emptyLineAfterTemporaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8270	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8272	self spaceAfterKeywordSelector
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8273	value:RBFormatter spaceAfterKeywordSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8274	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8275	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8276	self maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8277	value:RBFormatter maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8278	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8280	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8281	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8282	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8283
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8285
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8286	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8288	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8289
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8290	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8291	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8292	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8293	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8294	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8295	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8296	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8303	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8304	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8305	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8306	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8307	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8308	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8309	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8310	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8311	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8312
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8313	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8317	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8318	self error:'No parent for node'.
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	self editorText value:tree printString.
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	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8324	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8325	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8326	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8328	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8329	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8330	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8331	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8332	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8335	resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8336
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8337	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8338	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8339	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8340	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8341	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8342	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8343	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8344	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8345	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8346	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8347	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8348	!
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	resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8351
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8352	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8353	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8354	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8355	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8356	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8357	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8358	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8359	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8360	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8361	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8362	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8363	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8364
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8365	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8366
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8367	autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8368
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8370	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8371	autoFormat onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8372	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8373	^ autoFormat.
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	blockArgumentsOnNewLine
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	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8379	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8380	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8381	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8382	^ blockArgumentsOnNewLine.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8385	cStyleBlocks
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	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8388	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8389	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8390	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8391	^ cStyleBlocks.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8394	editorText
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	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8398	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8399	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8400	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8401
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8402	emptyLineAfterTemporaries
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	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8405	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8407	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8408	^ emptyLineAfterTemporaries.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8411	maxLengthForSingleLineBlocks
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	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8414	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8415	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8416	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8417	^ maxLengthForSingleLineBlocks.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8420	spaceAfterKeywordSelector
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	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8425	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8426	^ spaceAfterKeywordSelector.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8429	spaceAfterReturnToken
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	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8432	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8433	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8434	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8435	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8436	!
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	spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8439
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8440	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8441	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8442	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8443	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8444	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8445	!
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	tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8448
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8450	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8451	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8452	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8453	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8454	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8457
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8458	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8459	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8460	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8461	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8463	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8464	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8465	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8466	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8467	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8468	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8469	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8470	^ 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	super update:something with:aParameter from:changedObject
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:'initialization & release'!
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	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8478	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8479	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8480	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8481	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8482	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8483	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8484	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8485	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8486	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8487
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8488	postBuildTextEditor:aWidget
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8489
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8490	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8491	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8492	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8493
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8494	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8495
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8496	hasUnsavedChanges
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	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8499	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8500	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8501	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8502	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8503	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8504	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8505	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8506	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8507	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8508	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8509	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8510	! !
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	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8513
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8515	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8516	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8519	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8520
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8521	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8522	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8523	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8524	Icon flushCachedIcons
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8527	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8530	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8531	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	8532	@@@@@@@@@@@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	8533	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8534	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	8535	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	8536	@@@@@@@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	8537	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	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	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8542	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8543	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8544	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8546	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8547	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8549	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8550	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8551	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8552	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8553	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8555	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8557	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8558	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8559	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8560	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8561	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8562	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8563	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8564	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8565	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8566	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8567	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8568	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8569	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8570	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8571	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8572	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8573	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8574	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8575	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8576	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8577	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8578	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8579	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8580	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8582	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8583	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8584	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8585	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8586	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8587	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8588	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8589	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8590	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8591	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8592	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8593	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8594	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8595	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8596	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8597	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8598	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8599	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8600	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8601	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8602	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8603	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8604
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8605	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8606	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8607	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8608	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8609	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8610	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8611	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8612	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8613	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8614	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8615	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8616	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8617	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8618	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8619	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8620	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8621	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8622	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8623	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8624	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8625	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8626	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8627	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8628	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8629	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8630	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8631	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8632	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8633	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8634	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8635	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8636	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8637	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8638	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8639	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8640
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8641	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8642	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8643	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8644	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8645	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8646	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8647	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8648	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8649	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8650	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8651	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8652	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8653	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8654	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8655	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8656	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8657	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8658	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8659	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8660	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8661	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8662	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8663	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8664	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8665	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8666	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8668	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8669	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8670	#comboList: #cvsRootPrototypeList
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
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8674	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8675	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8676	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8677	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8678	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8679	#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	8680	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8681	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8682	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8683	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8684	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8685	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8686	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8687	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8688	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8689	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8690	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8691	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8692	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8693	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8694	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8695	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8696	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8697	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8698	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8699	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8700	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8701	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8703	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8704	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8705	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8706	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8707	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8708	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8709	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8710	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8711	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8712	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8713	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8714	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8715	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8716	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8717	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8718	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8719	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8720	#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	8721	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8722	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8723	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8724	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8725	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8726	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8727	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8728	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8729	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8730	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8732	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8733	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8734	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8735	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8736	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8737	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8738	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8739	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8740	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8742	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8743	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8744	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8745	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8746	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8747	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8748	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8749	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8750	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8751	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8752	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8753	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8754	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8755	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8756	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8757	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8758	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8759	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8760	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8761	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8762
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8763	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8764	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8765	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8766
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8767	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8768	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8769	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8770	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8771	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8772	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8773	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8774	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8775	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8776	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8777	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	#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	8779	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8780	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8781	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8782	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8783	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8784	#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	8785	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8786	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8787	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8788	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8789	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8790	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8791	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8792	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8793	)
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	#extent: #(#Point 661 30)
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	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8799	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8800	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8801	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8802	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8803	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8804	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8806	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8807	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8808	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8809	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8810	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8811	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8812	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8813	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8814	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8815	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8816	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8817	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8818	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8819	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8820	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8821	#extent: #(#Point 286 22)
4398 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	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8826	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8827	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8828	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8829	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8830	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8831	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8832	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8833	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8834	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8835	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8836	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8837	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8838	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8839	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8840	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8841	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8842
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8843	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8844	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8845	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8846	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8847	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8848	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8849	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8850	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8851	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8852	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8853	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8854	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8855	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8856	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8857	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8858	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8859	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8860
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8861	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8862	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8863	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8864	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8865
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8866	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8867	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8868	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8869	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8871	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8872	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8873	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8874
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8875	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8876	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8877	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8878
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8879	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8881	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8882
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8883	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8884	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8885
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8886	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8887
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8888	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8889
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8890	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8891
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8892	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8893	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8894	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8895	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8896	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8897	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8898	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8899	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8900	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8901	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8902	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8903
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8904	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8905
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8906	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8907	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8908	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8909	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8910	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8911	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8912
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8913	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8914	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8915	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8916	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8917	(fn := nm asFilename) exists ifFalse:[
4874 688a33043459 Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 4873 diff changeset	8918	(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8919	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8920	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8921	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8922	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8923	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8924	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8925	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8926	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8927	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8928	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8929	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8930	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8931	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8932	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8933	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8934	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8935
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8936	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8937	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8938	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8939	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8940	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8941	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8942	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8943	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8944	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8945	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8946	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	8947	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8948	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	8949	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8950	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8951	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8952	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8953	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8954
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8955	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8956	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8957	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8958
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8959	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8961	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8962	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8964	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8966	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8967	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8969	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8970
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8971	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8972	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8973	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8974
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8975	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8976	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8977	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8978	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8979	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8980	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8981	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8982	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8983	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8984	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8985	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8986	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8987	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8988	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8989	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8990	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8991	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8992	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8993	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8994	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8995	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8996	rootsPerModule notNil ifTrue:[
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8997	listOfModules := rootsPerModule keys asList.
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8998	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	8999	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9000	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9001	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9002
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9003	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9004
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9005	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9006
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9007	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9008	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9009	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9010	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9011	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9012	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9013	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9015	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9017	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9018	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9019	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9020	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9021	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9022	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9023	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9024	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9025
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9026	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9027
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9028	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9029
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9030	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9031	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9032	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9033	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9034	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9035
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9036	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9037
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9038	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9039	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9040	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9041	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9042	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9043	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9044
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9045	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9046	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9047	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9048	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9049	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9050	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9051
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9052	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9053	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9054	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9055	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9056	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9057	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9058
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9059	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9060
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9061	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9062	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9063	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9064	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9065	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9066	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9067
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9068	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9069
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9070	cvsRootPrototypeList isNil ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9071	OperatingSystem getDomainName = 'exept' ifFalse:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9072	cvsRootPrototypeList := #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9073	'host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9074	':pserver:user@host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9075	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9076	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9077	] ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9078	cvsRootPrototypeList := #(
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9079	'/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9080	'exept:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9081	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9082	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9083	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9084
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9085	OperatingSystem isUNIXlike ifTrue:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9086	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9087	'/cvs/stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9088	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9089	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9090	OperatingSystem isMSDOSlike ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9091	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9092	':local:c:\cvs\stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9093	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9094	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9095	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9096	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9097	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9098	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9099	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9100	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9101
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9102	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9103
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9104	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9105	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9106	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9107	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9108	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9109	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9110
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9111	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9113	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9114	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9115	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9116	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9117	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9118	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9119
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9120	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9121	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9122
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9123	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9124	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9125	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9126	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9127
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9128	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9131	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9132	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9133	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9134	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9135	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9136
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9137	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9138	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9139
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9140	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9141	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9142	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9143	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9144
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9145	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9146	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9147	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9148	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9149	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9150	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9151	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9152	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9153
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9154	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9155
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9156	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9157	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9158	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9159	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9160	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9161
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9162	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9163
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9164	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9165	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9166	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9167	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9168	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9169	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9170	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9171	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9172
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9173	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9174	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9175	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9176
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9177	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9178	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9179	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9180
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9181	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9182
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9183	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9184
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9185	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9186
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9187	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9188	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9189	module isNil ifTrue:[ ^ self].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9190	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9191	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9192	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9193	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9194	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9195
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9196	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9197	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9198
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9199	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9200
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9201	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9202	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9203
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9204	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9205	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9206	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9207	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9208	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9209	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9210	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9211	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9212	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9213	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9214	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9215	(fn exists
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9216	and:[fn isDirectory
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9217	and:[fn isReadable
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9218	and:[fn isWritable]]]) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9219	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9220	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9221	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9222	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9223	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9226	update:something with:aParameter from:changedObject
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9227	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9228	self sourceDirChanged.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9229	self evaluateModified.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9230	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9231	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9232
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9233	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9234	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9235	^ self
4286 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	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9239	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9240
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9241	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9242
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9243	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9244	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9245
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9246	useManager := false asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9247	useManager onChangeSend:#evaluateModified to:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9248
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9249	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9250	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9251
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9252	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9253	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9254
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9255	SourceCodeManager == CVSSourceCodeManager ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9256	rootsPerModule declareAllFrom:(SourceCodeManager repositoryNamesPerModule).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9257	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9258
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9259	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9260	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9262	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9263	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9264
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9265	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9267	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9268	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9269	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9270
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9271	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9272
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9273	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9274	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9275	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9276
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9277	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9279	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9280	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9281	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9282	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9283
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9284	hasUnsavedChanges
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9285	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil))
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9286	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9287
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9288	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9289	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9291	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9292	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9293	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9294
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9295	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9296	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9297
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9298	(CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9299	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9300
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9301	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9302	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9303
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9304	((Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9305	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9306
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9307	(self sourceCacheDir value ~= AbstractSourceCodeManager cacheDirectoryName)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9308	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9309
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9310	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9311	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9313	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9315	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9316
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9317	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9318	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9319	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9320	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9321	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9322	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9323	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9329	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9330
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9331	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9332	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9333	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9334
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9335	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9336	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9337
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9338	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9339	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9340	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9341	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9342	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9343
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9344	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9345
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9346	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9347	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9348	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	9349	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9350	@@@@@@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	9351	@ 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	9352	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	9353	@ 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	9354	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	9355	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9356
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9367	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9368	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9369	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9374	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9375	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9376	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9377	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9378	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9379	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9380	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9381	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9382	#max: #(#Point 1024 768)
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9383	#bounds: #(#Rectangle 16 42 491 573)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9384	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9388	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9389	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9390	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9391	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9392	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9393	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9396	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9397	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9398	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9399	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9400	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9401	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9402	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9405	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9406	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9407	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9408	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9409	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9410	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9411	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9412	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9413	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9414	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9415	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9416	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9417	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9418	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9419	#hasVerticalScrollBar: true
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9420	#doubleClickSelector: #doubleClickAt:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9421	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9422	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9428	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9432	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9433
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9434	\| newStyle transcript\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9435
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9436	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9437
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9438	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9439	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9440	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9441	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9442	DebugView newDebugger.
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9443	transcript := Transcript current.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9444	transcript notNil ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9445	\| app\|
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9446	app := transcript topView application.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9447	(app respondsTo:#reopenLauncher) ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9448	app reopenLauncher.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9449	].
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9450	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9451	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9452
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9453	doubleClickAt:aLine
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9454
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9455	self saveSettings.
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9456	!
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9457
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9458	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9460	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9461	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9462	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9463
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9464	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9465	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9466	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9468	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9470	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9472	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9473	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9474	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9475	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9476	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9477
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9478	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9481	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9482	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9483	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9486	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9489	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9490	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9492	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9500	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	^ showStandardStylesOnly.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9504	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	^ styleList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9515	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9517	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9519	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9521	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9522	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9523	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9526	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9551	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	self selectedStyle value:lastSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9569	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9570	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9571	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9572	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9574	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9581	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9582	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9583	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9589	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9590
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9591	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9598	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9601	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9602	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9603	self warn:'no styles found (missing ''resources'' directory)'.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9604	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9605	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9606	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9607
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9608	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9609	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9610	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9611	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9612	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9613	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9614
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9615	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9616	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9617	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9619	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9620	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9621	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9623	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9625	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9627	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9628	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9629
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9630	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9631
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9632	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9633
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9634	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9635	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9636	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9637	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9638	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9639	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9640	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9641	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9642	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9643	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9644	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9645	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9646	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9647	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9649	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9650	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9651	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9652	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9653
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9654	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9655
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9656	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9657	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9658	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9665	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9666	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9667	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9668	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9669	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9674
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675	fontList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9676
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9685	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9697	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9701	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9702
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	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	9717	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	9718	@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	9719	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	9720	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	9721	@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	9722	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	9723	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9733
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	<resource: #canvas>
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	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	#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	9759	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9760	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9761	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9762	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9786	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9787	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9805	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9816	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9817	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	#extent: #(#Point 685 44)
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: 'Box10'
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	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	#enableChannel: #syntaxColoring
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	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9883	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9884	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9886	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9887	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9889	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9890	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9891	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9892	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9893
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9894	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9895	#extent: #(#Point 695 609)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9898
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9899	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9900	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9901	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9902
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9903	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9904	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9905	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9909	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9910
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9911	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9912	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9913	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9914	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9915
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9919	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9920	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9922
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9923	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9924
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9925	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9926	!
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	help
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	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9931	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9934	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9935	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9936
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9937	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9938	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9939	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9940	current) declareAllFrom:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9943	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9946	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9947	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9948	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9950	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9951	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9952	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9953	self modifiedChannel value:false
4398 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	recolor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9957
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9958	\|text\|
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	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	text := self class exampleText.
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	self coloredText value:text
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	resetToColorScheme
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	\|resetSelector\|
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	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9973	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9975	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9976	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
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	coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9981
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9982	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983	coloredText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9984	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9987
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9988	fullSelectorCheck
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	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	fullSelectorCheck onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994	^ fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9995	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9996
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9997	resetList
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	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	"/ 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	10002	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10003	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10004	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10007
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008	resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10009
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10012	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10013	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10014	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10015
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10016	syntaxColor
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	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10021	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10022	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10023	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10025	syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10026
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10028	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10029	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10030	syntaxColoring onChangeSend:#evaluateModified to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10031	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10032	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10033	!
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	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10036	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10037
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10038	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10039	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10040	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10041	"*** (and replace this comment by something more useful ;-)"
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	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	"/ 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	10046	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
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	^ syntaxElementList.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052	syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10053
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10056	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059	^ syntaxElementSelection.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10063	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10064
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10065	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	"*** (and replace this comment by something more useful ;-)"
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	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	"/ 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	10073	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10076	^ syntaxEmphasisList.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079	syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10084	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10085	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10086	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10093	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096	syntaxColorChanged
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10102
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10103	syntaxElementSelectionChanged
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	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10107	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10108	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10110	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10111	!
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	syntaxEmphasisSelectionChanged
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	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10116
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10117	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10118	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10119	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10122
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10123	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	^ self.
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	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10133	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10137	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	^ 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10141	super update:something with:aParameter from:changedObject
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10144	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
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	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10148	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10149
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10151	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10152	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10153	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10154	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10156	initializeEmphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10158	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10161	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10162	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10163	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10166	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169	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	10170	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	10171	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173	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	10174	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	10175	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	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	10178	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	10179	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10180	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	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	10182	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	10183	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	emphasisDictionary at:entry put:entry
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	]
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	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10191	].
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	release
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	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10202	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10206	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10208	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10209	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10210	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10211	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10212	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10213	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10214	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10215	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10216	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10217	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10218	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10219	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10220	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10221	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10222	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10223	!
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	syntaxColorSelector
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	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
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	syntaxColorSelectorForElement:aSyntaxElement
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	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10235	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10236
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10237	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10238	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10239
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10240	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10241
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10242	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10245	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10246
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10247	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10248	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10249	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10250
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10251	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10252	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10253
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10254	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10255	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10256	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10257	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10258	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10259
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10260	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10261
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10262	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10263	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10264	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	10265	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10266	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10267	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10268	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10269	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	10270	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	10271	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10272
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10273	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10274
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10275	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10276	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10277	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10279	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10280	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10282	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10283	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10284	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10285	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10286	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10287
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10288	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10289
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10290	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10291	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10292	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10293	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10294	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10295	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10296	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10297	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10298	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10300	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10301	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10302	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10303	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10304	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10305	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10306	#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	10307	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10309	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10311	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10312	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10313	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10314	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10315	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10316	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10318	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10319	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10320	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10321	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10322	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10323	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10327	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10330	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10334	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10335	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10337	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10338	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10339	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10340	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10341	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10342	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10343	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10344	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10345	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10346	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10347	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10348	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10351	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10352	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10353	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10354	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10355	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10356	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10357	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10358	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10359	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10360
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10361	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10362	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10363	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10366	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10367	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10368	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10369	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10370	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10371	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10372	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10374	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10375	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10376	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10377	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10378	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10379	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10380	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10381	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10382	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10383	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10384	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10385	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10386	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10387	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10388	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10389	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10390	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10391	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10392	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10393	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10394	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10395	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10396	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10397	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10398	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10399	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10400	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10401	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10402	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10403	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10404
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10405	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10406	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10407	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10408	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10409
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10410	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10411	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10412	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10413	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10416	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10417	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10418
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10419	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10420	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10421	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10423	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10424
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10425	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10426
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10427	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10428	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10429	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10430	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10431	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10432	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10433	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10434	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10435
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10436	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10438	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10439	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10440
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10441	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10442	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10443	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10444	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10445	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10447	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10448	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10449	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10450	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10452	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10453
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10454	changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10455
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10456	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10457	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10458	changeFileName onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10459	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10460	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10461	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10462
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10463	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10465	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10466	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10467	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10468	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10469	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10470	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10472	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10474	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10475	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10476	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10477	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10478	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10479	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10480
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10481	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10482
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10483	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10484	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10485	logDoits onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10486	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10487	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10488	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10489
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10490	updChanges
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	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10493	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10494	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10496	^ updChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10497	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10498
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10499	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10500
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10501	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10502	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10503	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10504	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10505	^ vmErrors.
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	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10510	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10511	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10512	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10513	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10514	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10515	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10517	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10518
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10519	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10520
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10521	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10522	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10523	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10525	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10527	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10529	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10530	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10531	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10532	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10533	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10534	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10535	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10536	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10537
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10538	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10539
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10540	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10541	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10542	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10543
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10544	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10545	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10546
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10547	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10548	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10549	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10550	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10551	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10552
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10553	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10554
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10555	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10556	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10557	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	10558	@ 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	10559	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10560	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	10561	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	10562	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10563	@ 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	10564	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10565
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10568	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10569	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10570	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10572	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10573	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10575	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10576	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10577	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10578	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10579	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10581	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10583	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10584	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10585	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10586	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10587	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10588	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10589	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10590	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10591	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10592	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10593	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10594	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10595	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10596	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10597	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10598	#name: 'VerticalPanel2'
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10599	#layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10600	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10601	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10602	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10603	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10604	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10605	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10606	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10607	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10608	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10609	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10610	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10611	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10612	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10613	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10614	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10615	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10616	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10617	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10618	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10619	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10620	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10621	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10622	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10623	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10624	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10625	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10626	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10627	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10628	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10629	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10630	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10631	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10632	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10633	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10634	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10635	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10636	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10637	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10638	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10639	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10640	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10641	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10642	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10643	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10644	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10645	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10646	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10647	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10648	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10649	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10650	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10651	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10652	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10653	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10654	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10655	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10656	#(#CheckBoxSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10657	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10658	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10659	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10660	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10661	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10662	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10663	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10664	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10665	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10666	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10667	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10668	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10669	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10670	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10671	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10672	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10673	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10674	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10675	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10676	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10677	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10678	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10679	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10680	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10681	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10682	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10683	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10684	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10685	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10686	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10687	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10688	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10689	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10690	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10691	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10692	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10693	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10694
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10695	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10696	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10697	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10698	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10699
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10700	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10701	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10702	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10703	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10705	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10706	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10707	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10709	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10710
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10711	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10712
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10713	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10714
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10715	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10716	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10717	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10718	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10719	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10720	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10721	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10722	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10723	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10724	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10725	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10726	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10727	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10728	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10729	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10730	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10731	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10732	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10733	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10734	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10735	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10736	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10737	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10738	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10739	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10740	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10741	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10742	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10743	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10744	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10745	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10746	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10747	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10748	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10749	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10750	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10751	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10752	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10753	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10754	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10755	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10756	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10757	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10758
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10759	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10760
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10761	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10762	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10763
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10764	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10765	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10766	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10767	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10768	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10769	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10770	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10771	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10772	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10773	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10774	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10775	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10776	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10777	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10778	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10779	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10781	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10783	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10785	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10786	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10787	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10788	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10789	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10790	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10792	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10794	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10795	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10796	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10798	^ transcriptBufferSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10799	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10800
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10801	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10802
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10803	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10804	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10805	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10807	^ useNewChangesBrowser.
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	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10812	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10813	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10814	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10816	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10817	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10818
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10819	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10820
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10821	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10822	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10823	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10824	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10825	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10826	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10827
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10828	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10829
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10830	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10831	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10832	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10833	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10834	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10835	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10836
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10837	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10838
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10839	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10840	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10841	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10842	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10843	^ useNewSettingsApplication.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10844	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10845
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10846	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10848	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10849	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10850	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10851	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10852	^ useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10853	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10855	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10857	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10858	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10859	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10860	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10861	^ useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10862	!
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10863
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10864	useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10865
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10866	useProcessMonitorV2 isNil ifTrue:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10867	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10868	useProcessMonitorV2 onChangeSend:#evaluateModified to:self
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10869	].
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10870	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10871	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10873	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10874
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10875	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10877	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10878	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10879	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10880	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10881	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10882	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10883	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10884	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10885	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10886	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10887	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10888
4226 44e2f83cc526 initial checkin penk parents: diff changeset	10889	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	10890
44e2f83cc526 initial checkin penk parents: diff changeset	10891	version
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	10892	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.62 2003-05-13 15:21:48 cg Exp $'
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	10893	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 13 May 2003 17:21:48 +0200
changeset 4883	45341d5a8867
parent 4874	688a33043459
child 4886	4fcb51786045
permissions	-rw-r--r--