hg/stx-libtool: AbstractSettingsApplication.st@42d9b274824d (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
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	267	self saveRequestAsking:self askForChangeOnRelease
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	268	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	269
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	270	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	271	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	272
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	273	(self hasUnsavedChanges) ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	274	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	275	result := self confirmWithCancel:(resources
97ccd5a946f4 next step penk parents: 4813 diff changeset	276	string:'Save changed ' , settingsString , ' ?').
97ccd5a946f4 next step penk parents: 4813 diff changeset	277	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	278	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	279	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	280	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	281	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	282	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	283	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	284	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	285	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	286	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	287	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	288	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	289	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	290	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	291
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	292	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	293	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	294	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	295	self modifiedChannel value:false
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	! !
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	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	300
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	301	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	302
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	303	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	304	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	305	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	306	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	307	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	308
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	309	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	310
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	311	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	312	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	313	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	314	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	315	settingsString := (UISpecification from:(self class windowSpec)) window label.
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	316	"/ self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	317	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	318
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	319	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	320
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	321	askForChangeOnRelease
4847 05d296c94b4b * empty log message * penk parents: 4846 diff changeset	322	^ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	323	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	324
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	325	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	326
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	327	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	328	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	329
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	330	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	331
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	332	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	333	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	334
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	335	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	336
289972d3e455 * empty log message * penk parents: 4319 diff changeset	337	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	338	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	339	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	340	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	341
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	342	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	343	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	344	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	345
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	346	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	347
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	348	self basicSaveSettings.
4657 a59ba78d52d2 reset UserPrefernces instance on saveSettings because Userpreferences current may change penk parents: 4656 diff changeset	349	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	350	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	351	! !
44e2f83cc526 initial checkin penk parents: diff changeset	352
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	353	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	354
1bde09704293 * empty log message * penk parents: 4893 diff changeset	355	itemPathName
1bde09704293 * empty log message * penk parents: 4893 diff changeset	356	^ self requestor getNameOfApplication:self.
1bde09704293 * empty log message * penk parents: 4893 diff changeset	357	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	358
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	359	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	360
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	361	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	363	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	364	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	365
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	366	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	368	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	369	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	370
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	371	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	372
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	373	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	374	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	375	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	376
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	377	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	378	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	379
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	380	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	381	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	382	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	383	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	384	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	385
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	386	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	387
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	388	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	389	constantNamed:#'AbstractSettingsApplication::CompilerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	390	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	391	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	392	@@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	393	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	394	@@@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	395	@PDA@@@@@PDA@@DA@@@B@@@A@PDA@PDA@PDA@PDA@P@A@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	396	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	397	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	398
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	399	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	400
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	401	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	402	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	403	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	404
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	405	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	406	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	407
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	408	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	409	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	410	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	412	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	414	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	415
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	416	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	417	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	418	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	419	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	420	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	421	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	422	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	423	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	424	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	425	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	426	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	427	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	428	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	429	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	430	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#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	433	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	434	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#name: 'Box2'
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	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	538	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	539	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	545	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	546	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	547	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	548	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	549	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	550	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	551	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	552	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	554	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	555	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	556	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	557	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	558	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	559	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	560	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	561	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	562	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	563	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	564	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	565	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	566	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	567	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	568	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	569	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	570	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	571	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	572	#extent: #(#Point 600 22)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	575	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	576	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	577	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	578	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	579	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	580	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	581	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	582	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	583
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	584	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	585	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	586	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	587
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	588	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	589	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	590	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	591	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	592	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	593	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	594	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	595	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	596	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	597	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	598	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	599	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	600	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	601	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	602	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	603	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	604	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	605	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	606	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	607	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	608	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	609	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	610	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	611	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	612	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	613	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	614	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	615	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	616	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	617	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	618	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	619	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	620	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	621	#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	622	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	623	#adjust: #right
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	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	626	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	627	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	628	#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	629	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	630	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	631	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	632	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	633	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	634	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	635
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	636	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	637	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	638	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	639	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	640
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	641	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	642	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	649	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	650
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	651	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	653	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	669	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	670	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	671	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	672	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	673	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	674	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	676	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	678	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	679	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	680	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	681	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	682	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	683	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	684	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	685	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	686	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	687	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	688
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	689	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	690
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	691	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	692	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	693
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	694	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	695	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	696	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	697	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	698	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	699	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	700	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	701	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	702	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	703	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	704	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	705	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	706	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	707	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	708	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	709	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	710	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	711	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	712	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	713	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	714	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	715	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	716	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	717	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	718	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	719	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	720	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	721	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	722	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	723	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	724	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	725	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	726	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	727	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	728	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	729	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	730	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	737	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	allowDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	744	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	allowDolphinExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	754	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	allowOldStyleAssignment onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	763	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	allowQualifiedNames onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	772	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	allowReservedWordsAsSelectors onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	781	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789	allowSqueakExtensions onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	790	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791	^ allowSqueakExtensions.
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	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	allowUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	799	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	819
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	820	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	821
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	constantFoldingSelection := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	constantFoldingSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	827	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	!
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	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	fullDebugSupport onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	866	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	867	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	868	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	immutableArrays onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	875	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	!
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	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	justInTimeCompilation onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	888	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	warnCommonMistakes onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	897	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	warnCompatibility onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	906	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	warnDollar onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	915	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	warnOldStyle onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	924	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	warnSTX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	933	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	warnUnderscore onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	942	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	warnUnusedVars onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	951	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	warnings onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	962	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	966	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	967
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	970	changedObject value ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	971	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	984	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	987	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	988
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	989	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	993	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1001	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1002	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1005	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1006	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1009	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1010	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1011	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1012	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1014	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1015
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1016	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1017	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1018
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1019	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1021	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1022	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1023
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024	^ ToolbarIconLibrary bugReporter24x24Icon
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	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1029	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1030	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1049	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1050	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1051	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	)
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: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#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	1061	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1062	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1110	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1111	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1115	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1116	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1117	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	#translateLabel: true
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	#extent: #(#Point 600 30)
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	#extent: #(#Point 600 320)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1134
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1135	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1136	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1137	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1138
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1139	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1140	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1141	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1142
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1143	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1144
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1145	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1146
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1147	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1148	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1149	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1150	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1151	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1152	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1153	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1154	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1155
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1156	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1159	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1162	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1163	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1164	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1165	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1166	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1167	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1168	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1169	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1175	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1176	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1177	allowSendMailFromDebugger onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1178	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1182	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1184	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1185	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1186	showErrorNotifier onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1187	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1192
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1193	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1194	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1195	showVerboseStack onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1196	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1197	^ showVerboseStack.
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	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1202	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1203
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1204	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1205	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1206	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1207	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1208	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1209	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1210	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1211
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1212	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
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	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
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	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226	^ #('threshold' 'ordered dither' '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	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1234	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1235
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1236	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1237	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1238
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1239	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1240
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1241	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1242	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1243
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1244	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1245
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1254	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1256	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1257	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1258
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1259	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1260
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1262	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1263	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	1264	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1265	@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	1266	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	1267	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	1268	ER ''I2\''EQTUEQTUEP@@@@@@@@@@@@@(I2\''I1TU@@@@@@@@@@@@@@@@JB\''I2\''I2\''I2\U@@@@@@@@@@@@@B ''I2\''I2\''I2\''EP@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1269	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	1270	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1271
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1281	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1282	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1283	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1284	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1296	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1298	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1340	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1342	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1358	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1360	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1455	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1456	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1457	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1458
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1459	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1460	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1461	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1463	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1464
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1466
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1467	Image flushDeviceImages.
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	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	self useFixPalette 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 getColorsRed:4 green:8 blue:4 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 releaseFixColors
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	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1487	screen releaseFixGrayColors
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1490	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1491	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1492	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1493
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1494	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1495	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1496	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1497	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1498
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1499	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1500	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1501	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1502
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1503	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1504	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1505
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1510	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1511
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1512	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1518	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1519	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1520	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1521	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1522	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1523	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1524	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1525	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1526	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1544	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	clipEncodingListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1553	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	deepIcons := screen supportsDeepIcons asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	deepIcons onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1574	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	ditherListSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1591	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	isColorMonitor := screen hasColors asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	isColorMonitor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1609	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	monitorSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	monitorSelection onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1632	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	sizeX changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	sizeX onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1637	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1643	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	sizeY changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	sizeY onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1652	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	useFixGrayPalette := screen fixGrayColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	useFixGrayPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1669	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	useFixPalette := screen fixColors notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	useFixPalette onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1686	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	visualIsPseudoColor onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1704	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1705	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1706	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1717	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1718	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1719	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1737
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1739
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1740	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1741
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1742	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1763	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1764	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1765	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1766
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1786	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1800	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1802	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1803
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1804	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1805
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1806	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1807	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1808	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1809
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1810	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1811	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1814	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1815	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1816	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1817	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1818
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1819	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1820
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1821	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1822	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1823	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	1824	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (@@@TE@@@@B (IBP$IBPXIBP$IBP$IAPTE@0@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1825	@@(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	1826	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	1827	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	1828	@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	1829	@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	1830	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1831
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1834	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1838	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1839	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1842	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1843	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1844	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1849	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1850	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1853	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1854	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1855	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1858	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	)
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: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1865	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1915	#extent: #(#Point 600 23)
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	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1920	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1926	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1928	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1929	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1930	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1931
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1932	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1933
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1934	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1935
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1936	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1938	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1939	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1940	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1941	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1942	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1943	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1944	UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1945	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1946	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1947
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1950	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1951	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1952	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1953
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1954	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1955	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1956	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1957	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1958	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1959	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1960	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1961	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1962	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1963	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1967
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971	searchDialogIsModal := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	searchDialogIsModal onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980	st80DoubleClickSelectMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	st80DoubleClickSelectMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989	st80EditingMode := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	st80EditingMode onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998	startTextDragWithControl := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999	startTextDragWithControl onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007	tabsIs4 := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008	tabsIs4 onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	hasUnsavedChanges
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	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2054	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2055	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2056	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2057	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2058
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2059	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2060
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2061	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2062	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2063	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2064
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2065	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2066	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2067
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2069	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2070	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2071	Icon flushCachedIcons
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	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2075
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2076	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2077	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2078	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	2079	@@@@@@@@@@@@@@@@@@@@@!!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	2080	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	2081	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	2082	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2084	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2085	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2086	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2087
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2088	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2089	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2091	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2092	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2093	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2094	Icon flushCachedIcons
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2097	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2098
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2099	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2100	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2101	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	2102	@@@@@@@@@@@@@@@@@@@@@!!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	2103	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	2104	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	2105	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2106
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2115	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2119	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2121	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2125	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2126	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2129	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2130	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2131	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2140	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2141	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2143	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144	#max: #(#Point 1024 768)
4727 3e5f6ddd50d8 no bold labels Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	2145	#bounds: #(#Rectangle 16 46 512 658)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2146	)
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	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2151	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2152	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2153	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2155	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2156	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2157	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2158	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2159	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2160	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2161	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2162	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2163	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2164	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2165	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2166	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2167	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2168	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2171	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2172	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2175	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2186	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2189	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2190	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2191	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2192	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2194	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2195	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2196	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2199	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2200	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2201	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2260	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2261	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2262	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2263	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2266	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2268	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2302	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2307	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2376	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2377	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2378
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2379	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2380	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2381	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2384	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2386	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2388	)
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:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2394	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2395
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2397	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2398	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2399	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2400	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2402	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2403
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2404	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2405
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2406	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2407	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2408	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2409	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2410	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2411	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2412	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2413	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2414
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2415	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2416	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2418	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2419	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2420	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2421	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2422	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2423	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2424	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2425	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2426	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2427	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2428	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2429	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2430	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2432	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2434	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2436	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2437	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2441	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2446	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2448	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2449	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2453	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2454	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2460	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2465	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2472	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2477	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2484	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2485	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2489	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2499	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2501	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2506	self modifiedChannel value:false
4286 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	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516	^ allFontLabelHolder.
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	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526	^ allOfThem
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	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2537	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2542	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544	^ buttonsFontLabelHolder.
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	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2555	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2560	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562	^ labelsFontLabelHolder.
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	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2573	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2578	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580	^ listsFontLabelHolder.
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	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2591	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2596	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598	^ menusFontLabelHolder.
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	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2609	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2614	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2617	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2618
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2619	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2620
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2621	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2622	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2623	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2624	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2625	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2626	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2627	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2628	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2629	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2630	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2631	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2632	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2633	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2634	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2635	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2636	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2637	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2638	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2639	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2640	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2641	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2642	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2643	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2644	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2645	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2646	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2647	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2648	super update:something with:aParameter from:changedObject
4574 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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2651	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2652	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2655	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2656	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2658	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2659
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2660	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2661	\| f label\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2662
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2663	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2664
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2665	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2666	label := f isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2667	''
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2668	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2669	f userFriendlyName
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2670	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2671	fontNameHolder value:label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2672	self evaluateModified.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	allLabel := 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	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	buttonsLabel := 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	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	labelLabel := 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	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2694	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2695	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	menuLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2702	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2703
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2704	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2707	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2708	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2709	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2710	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2718	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2719	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2720	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2721	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2722	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2723
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2724	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
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	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2727
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2728	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2729	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2730
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2731	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2732
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2733	^ #('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	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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2737
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2738	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2739	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2740	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2741
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2742	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2743	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2744
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2745	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2746	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2747	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2748	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2749	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2750
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2751	<resource: #image>
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	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2754	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2755	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	2756	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2757	@@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	2758	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	2759	@@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	2760	@@@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	2761	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2765
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2766	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2767	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2768	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2770	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2771	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2772
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2773	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2774	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2775	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2776	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2777	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2781	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2782	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2786	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2789	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	)
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	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	#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	2798	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2799	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2800	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2824	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2837	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2838	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2846	#useIndex: true
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	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862	#extent: #(#Point 600 3)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870	#extent: #(#Point 600 25)
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	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2873
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2874	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2875	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2876	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2877
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2878	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2879	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2880	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2881
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2882	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2883
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2884	basicSaveSettings
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	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2887	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2888	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2889	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2890	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2891	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2892	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2893	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2894	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2895	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2896	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2897	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2898	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2899
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2900	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2901
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2902	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2906	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2907	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2908	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2909	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2910	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2911	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2912	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2913	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2918	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2919	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2920	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2922	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2923	self modifiedChannel value:false
4387 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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
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	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2930	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	^ canLoadBinaries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2937
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2938	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	catchClassRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	^ catchClassRedefs.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	catchMethodRedefs onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2950	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2953
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	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2957	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2958	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2959	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2960	fullHistoryUpdate := false asValue.
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	fullHistoryUpdate onChangeSend:#evaluateModified to:self.
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	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2965	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2966
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2967	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2968
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2973
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2974	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	historyLines := self hasHistoryManager asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976	historyLines onChangeSend:#evaluateModified to:self.
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	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2981	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2982
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2983	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2984	keepSource := (resources array:(self class keepSourceStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2985	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2989	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	keepSourceSelection onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2994	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997
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	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3001	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004	loadBinaries:= false asValue
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	loadBinaries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
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	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3016	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3017	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3018	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3019	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3020	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3021	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3022	]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3023	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3024	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3025
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3026	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'documentation'!
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	version
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	3029	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.66 2003-06-03 10:38:21 cg Exp $'
4724 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	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3033
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3034	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3035	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3036	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3037
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3038	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3039	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3040
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3041	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3042	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3043	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3044	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3045	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3046
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3047	<resource: #image>
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	^Icon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3050	constantNamed:#'HTTPStartServerSettingsApplication class defaultIcon'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3051	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	3052	@@@@@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	3053	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	3054	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	3055	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	3056	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	3057	#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	3058	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3059
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3060	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3061
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3062	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3063	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3064	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3065
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3066	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3067	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3068
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3069	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3070	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3071	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3072	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3073	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3074
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3075	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3076
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	#(#FullSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3079	#name: #windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3080	#window:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3081	#(#WindowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3082	#label: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3083	#name: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3084	#min: #(#Point 10 10)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3085	#max: #(#Point 2048 1024)
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3086	#bounds: #(#Rectangle 16 42 555 672)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3087	)
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: 'VerticalPanel1'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3093	#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	3094	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3095	#verticalLayout: #top
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3096	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3097	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3098	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3099	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3100	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3101	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3102	#name: 'VerticalPanel4'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3103	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3104	#verticalLayout: #topSpace
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3105	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3106	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3107	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3108	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3109	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3110	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3111	#name: 'Box19'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3112	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3113	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3114	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3115	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3116	#label: 'Label'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3117	#name: 'Label2'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3118	#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	3119	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3120	#labelChannel: #informationLabel
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3121	#resizeForLabel: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3122	#adjust: #left
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3123	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3124	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3125
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3126	)
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3127	#extent: #(#Point 539 200)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3128	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3129	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3130	#name: 'Box18'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3131	#extent: #(#Point 539 20)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3132	)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3133	#(#ViewSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3134	#name: 'Box17'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3135	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3136	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3137	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3138	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3139	#label: 'Port:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3140	#name: 'Label1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3141	#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	3142	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3143	#adjust: #right
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3144	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3145	#(#InputFieldSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3146	#name: 'EntryField1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3147	#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	3148	#model: #portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3149	#type: #number
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3150	#immediateAccept: true
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3151	#acceptOnReturn: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3152	#acceptOnTab: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3153	#acceptOnLostFocus: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3154	#acceptOnPointerLeave: false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3155	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3156	#(#ActionButtonSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3157	#label: 'Create new HTTP Server'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3158	#name: 'Button4'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3159	#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	3160	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3161	#model: #createServer
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	#(#ActionButtonSpec
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3164	#label: 'Remove all HTTP Servers'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3165	#name: 'Button5'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3166	#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	3167	#translateLabel: true
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3168	#model: #removeAllServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3169	#enableChannel: #hasCreatedServerChannel
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	#extent: #(#Point 539 90)
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	#extent: #(#Point 539 620)
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	)
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	)
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	)
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	)
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3191	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3192
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3193	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3194
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3195	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3196	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3197
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3198	createServer
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	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3201
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3202	port := self portNumberChannel value.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3203	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3204	runningServers notEmpty ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3205	runningServers do:[:aServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3206	aServer port = port asInteger ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3207	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	3208	^ self
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	].
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3212	runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3213
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3214	self withWaitCursorDo:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3215	newServer := HTTPServer new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3216	newServer port:port.
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	3217	"/ newServer setupDefaults.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3218	self createServerApplicationFor:newServer.
4724 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	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3221
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3222	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3223	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3224
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3225	openApps := self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3226	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3227	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3228	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3229	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3230
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3231	settingsApp := HTTPServerSettingsAppl basicNew.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3232	settingsApp requestor:self requestor.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3233	settingsApp httpServerInstance:aServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3234	settingsApp basicInitialize.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3235	itemPathName := self itemPathName , '/HTTPServer Port ', aServerInstance port asString.
1bde09704293 * empty log message * penk parents: 4893 diff changeset	3236	newItem := requestor addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3237	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3238	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3239	requestor expandItemForApplication:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3240	settingsApp initialize.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3241	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3242
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3243	createServerSubApplicationsForRunningServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3244
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3245	\|runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3246
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3247	HTTPServer isLoaded ifFalse:[ ^ self].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3248
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3249	runningServers := HTTPServer runningServers asOrderedCollection.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3250	runningServers isEmpty ifTrue:[ ^ self].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3251	runningServers sort:[:a :b \| a port < b port].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3252	runningServers do:[:aHttpServerInstance \|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3253	self createServerApplicationFor:aHttpServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3254	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3255	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3256
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3257	readSettings
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3258	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3259	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3260	HTTPServer runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3261	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3262	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3263	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3264	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3265	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3266
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3267	removeAllServerSubApplications
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3268	requestor removeAllApplicationsByClass:HTTPServerSettingsAppl
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3269	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3270
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3271	removeAllServers
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3272	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3273	HTTPServer terminateAllServers.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3274	].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3275	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3276	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3277	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3278
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3279	setPortOnFreePort
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3280
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3281	\| highestUsedPortNr portToUse \|
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3282
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3283	HTTPServer isLoaded ifFalse:[
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3284	portToUse := 8080
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3285	] ifTrue:[
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3286	highestUsedPortNr := HTTPServer allInstances
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3287	inject:(HTTPServer defaultPort - 1)
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3288	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3289
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3290	portToUse := highestUsedPortNr + 1
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3291	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3292	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3293	! !
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	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3296
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3297	hasCreatedServerChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3298	"automatically generated by UIPainter ..."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3299
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3300	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3301	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3302	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3303	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3304
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3305	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3306	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3307	"/ 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	3308	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3309	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3310	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3311	^ hasCreatedServerChannel.
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	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3315	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3316	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3317	default:
4843 720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3318	'These dialogs provides two things
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3319	1. Setup the default server settings
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3320	2. control individual running servers (if you want to handle
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3321	multiple servers on multiple ports).
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3322	The default servers'' settings are specified in the
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3323	"HTTPServer Default Settings" entry.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3324	The settings for a new server are taken from
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3325	the default server settings or from the http server instance
4843 720bcf8de415 checkin from browser penk parents: 4840 diff changeset	3326	settings file'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3327	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3328
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3329	portNumberChannel
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	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3332	portNumberChannel := ValueHolder new.
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	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3335	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3336
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3337	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3338
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3339	createdServerChanged
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3340
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3341	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3342	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3343	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3344
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3345	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3346	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3347	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3348	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3349
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3350	update:something with:aParameter from:changedObject
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3351	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3352	changedObject == HTTPServer runningServers ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3353	self runningServersChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3354	^ self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3355	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3356	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3357	super update:something with:aParameter from:changedObject
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3360	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3361
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362	release
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3363	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3364	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3365	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3366	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3367
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3368	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
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	hasCreatedServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3371
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3372	^ (self requestor getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) notEmpty
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3373	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3374
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3375	hasUnsavedChanges
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	^ false
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	help
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	self warn:'no help available here'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3383	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3384	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3385
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3386	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3387
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3388	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3389	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3390	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3391
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3392	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3393	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3394
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3395	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3396	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3397	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3398	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3399	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3400
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3401	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3402
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3403	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3404	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3405	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	3406	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3407	@@@@@@@@@@HB@ @@@@@@@@@@@@@@@@@@@@@@@@HBA@PD@@@@@@@@@@@@@@@@@@@@@@HBA@PDA@P@@@@@@@@@@@@@@@@@@@HBA@PD@@@DA@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3408	@@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	3409	@ HDA@PDA@LC@0@@@@@@@@@@@@@@@@HB@ PDA@LC@0@@@@@@@@@@@@@@@@@@@ HBA@LC@0@@@@@@@@@@@@@@@@@@@@@B@ PC@0@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3410	@@HD@0@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3411	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3412	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3413
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3414	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3415
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3416	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3417	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3418	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3419
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3420	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3421	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3423	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3424	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3425	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3426	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3427	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3431	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3432	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3433	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3434	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3435	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3436	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3437	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3438	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3439	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3440	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3441	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3442	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3443	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3444	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3445	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3446	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3447	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3448	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3451	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3456	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3458	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	)
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	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3523	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3524	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3525
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3531	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3532	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3535	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3537	functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3542	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3543	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3545	functionKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	functionKeyList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3548	"/ functionKeyList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3549	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3550	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3551	^ functionKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3552	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3554	labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3555	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3557	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3558	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3559	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3560	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3561
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3562	labelTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3563	labelTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3564	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3565	"/ labelTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3566	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3567	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3568	^ labelTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3569	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3571	macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3572	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3573
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3574	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3575	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3576	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3577	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3579	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3580	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3581	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3582	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3599	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3607	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3616	changeFunctionKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	changeMacroText
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3627	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3634	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3648	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3653	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	changeRawKeySelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3670	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3684	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3699	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3707	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3716
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3724	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3725
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3726	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3727	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3728	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3729
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3730	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3731	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3732
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3733	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3734	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3735	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3736	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3737	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3738
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3739	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3740
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3741	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3742	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3743	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	3744	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	3745	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	3746	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	3747	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	3748	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	3749	@@@@@@@@@@@@@@@@@@@@@@@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	3750	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3751
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3752	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3754	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3755	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3756	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3757
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3758	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3759	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3761	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3762	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3763	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3764	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3765	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3773	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3774	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3775	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3778	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3783	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3785	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3789	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3790	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3794	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3796	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3801	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3805	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3810	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3827	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3828	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3829	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3830	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3831	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3832	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3833	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3834	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3835	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3836	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3837	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3838	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3839	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3840	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3841	#model: #rereadResourceFiles
4737 b513890618b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3842	#extent: #(#Point 228 22)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3843	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3844	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3845
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3846	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3847	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3848	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3850	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3851	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3852	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3853
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3854	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3856	languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3857	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3861
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3864	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3867	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3875	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913	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	3914	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3918	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	answer ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930	switch := ( self requestor fontBoxForEncoding:fontPref)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3934	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3941	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3943	switch ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	self requestor notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	self requestor reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3946	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3947	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	self currentLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3952	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3953
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3954	doubleClick:aEntry
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3955
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3956	self saveSettingsIfUnsavedChangesArePresent.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3957	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3958
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3959	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3960
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3961	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3962	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3963
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3964	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3965	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3966	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3967	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3968	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3969
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3970	rereadResourceFiles
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3971	ResourcePack flushCachedResourcePacks.
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	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3974	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
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	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3977	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3978	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3980	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3981
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3982	currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3983
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3984	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3985	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3986	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3987	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3988	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990	currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3993	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4001	languageHolder := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002	languageHolder onChangeSend:#evaluateModified to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4009	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4013	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4018	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4028	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4038	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4045	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4049	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	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	4068
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4069	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	currentLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4079	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4080	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	^ languageList at:(listOfLanguages indexOf:lang)
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	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4091	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4092
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4093	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4094	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4095	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4096
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4097	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4098	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4099
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4100	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4101	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4102	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4103	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4104	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4105
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4106	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4107
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4108	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4109	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4110	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	4111	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD\@@@@@@@@@@@@@@@@@@@@@@@ARIT(*IRL]R0@@@@@@@@@@@@@@@@@@M2-VUQ<UD4QV@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4112	@@@@@@AURQ<WI!!<UEQTVS%@@@@@@@@@@@@AXI3=CH!!4QDA!!DJAT[SP@@@@@@@@AXRDQSI1,OC <QE1TRHQ @@@@@@@AUR2XWGQ MCP<OC <QHATEN0@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4113	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	4114	@ 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	4115	E1@@GQYHH"1ET @@@@@@@@@@M0\@B!!$GMTP8S"EO@@@@@@@@@@@@@@@:B@@UET$1H$D/@@@@@@@@@@@@@@@@@C OD14\G$9ST@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4116	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	4117	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4118
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4119	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4121	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4122	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4123	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4124
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4125	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4126	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4127
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4128	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4129	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4130	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4131	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4136	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4137	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4138	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4139	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4140	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4158	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4159	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4160	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4161	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4166	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4167	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4168	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4169	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4170	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4171	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4172	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4173	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4174	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4175	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4176	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4177	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4178	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4179	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4181	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4182	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4183	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4184	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4185	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4186	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4187	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4188	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4189	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4192	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4201	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4203	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4206	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4219	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4227	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4230	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4257	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4265	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4268	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4275	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4277	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4279	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4286	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4295	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4302	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4303	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4304	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4305	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4306	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4307	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4308	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4309	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4310	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4311	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4312	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4313	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4314	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4315	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4316
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4317	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4318	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4319	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4320	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4321	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4322	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4323	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4324	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4325	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4326	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4327	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4328	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4329	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4330	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4331	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4332	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4333	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4334	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4335	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4336	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4337	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4338	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4339	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4340	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4341	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4342	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4343	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4344	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4345	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4346	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4347	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4348	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4349	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4350	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4351	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4352	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4353	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4354
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4355	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4356	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4358	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4359	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4360	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4361	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4362	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4363	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4364	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4365	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4366	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4368	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4370	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4371	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4372	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4373	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4374	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4377	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4378	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4379	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4380	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4381	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4382	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4383	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4384	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4385	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4386	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4387	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4388	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4389	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4390	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4391	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4392
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4393	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4394	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4395	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4396	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4397	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4398	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4399	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4400	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4401	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4402	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4403	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4404	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4405	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4406	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4407	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4408	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4409	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4410	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4411	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4412	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4413	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4414	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4415	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4416	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4417	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4418	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4419	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4420	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4421	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4422	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4423	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4424	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4425	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4426	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4427	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4428	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4429	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4430
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4431	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4434	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4435	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4436	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4437	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4438	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4439	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4440	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4441	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4442	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4443	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4444	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4445	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4446	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4447	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4448	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4449	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4450	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4451	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4452	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4453	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4454	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4455	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4456	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4457	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4458	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4459	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4460	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4461	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4462	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4463	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4464	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4465	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4466	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4467	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4468
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4469	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4470	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4471	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4472	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4473	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4474	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4475	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4476	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4477	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4478	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4479	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4480	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4481	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4482	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4483	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4484	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4485	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4486	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4487	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4488	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4489	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4490	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4491	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4492	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4493	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4494	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4495	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4496	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4497	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4498	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4499	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4500	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4501	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4502	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4503	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4504	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4505	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4506	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4507
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4508	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4509	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4510	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4511	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4512	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4513	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4514	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4515	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4516	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4517	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4518	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4519	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4520	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4521	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4522	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4523	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4524	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4525	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4533	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4536	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4537	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4538	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4545	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4547	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4552	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4553	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4556	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4557	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4563	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4571	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4587	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4588	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4590	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4591	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4592	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4594	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4595	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4596	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4598	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4599
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4600	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4601
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4602	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4603	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4604	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4605	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4606	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4607	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4608	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4609	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4610	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4611	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4612	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4613	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4614
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4615	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4617	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4618	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4619	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4620
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4621	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4622	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4623	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4624	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4625	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4626	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4627	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4628	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4629	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4630	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4631	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4632	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4633	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4634	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4636	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4638	codeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4639
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4640	codeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4641	codeLimit := ObjectMemory dynamicCodeLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4642	codeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4643	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4644	^ codeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4645	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4647	codeTrigger
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4648
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4649	codeTrigger isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4650	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4651	codeTrigger onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4652	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4653	^ codeTrigger.
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	compressLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4658	compressLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4659	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4660	compressLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4661	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4662	^ compressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4663	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4665	fastMoreLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4667	fastMoreLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4668	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4669	fastMoreLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4671	^ fastMoreLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4674	igcFreeAmount
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4676	igcFreeAmount isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4677	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4678	igcFreeAmount onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4679	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4680	^ igcFreeAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4681	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4683	igcFreeLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4685	igcFreeLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4686	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4687	igcFreeLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4688	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4689	^ igcFreeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4690	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4691
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4692	igcLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4693
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4694	igcLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4695	igcLimit := ObjectMemory incrementalGCLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4696	igcLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4697	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4698	^ igcLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4699	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4701	maxOldSpace
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4703	maxOldSpace isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4704	maxOldSpace := ObjectMemory maxOldSpace asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4705	maxOldSpace onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4706	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4707	^ maxOldSpace.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4708	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4710	newSpaceSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4712	newSpaceSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4713	newSpaceSize := ObjectMemory newSpaceSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4714	newSpaceSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4715	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4716	^ newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4717	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4718
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4719	oldIncr
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4720
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4721	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4722	oldIncr := ObjectMemory oldSpaceIncrement asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4723	oldIncr onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4724	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4725	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4726	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4728	stackLimit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4729
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4730	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4731	stackLimit := Process defaultMaximumStackSize asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4732	stackLimit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4733	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4734	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4735	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4736
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4740	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742	warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4750	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4754	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4778	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4779
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4780	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4781	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4782	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4783
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4784	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4785	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4786
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4787	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4788	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4789	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4790	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4791	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4792
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4793	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4794
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4795	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4796	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4797	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	4798	@@@@_$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	4799	.+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	4800	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	4801	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	4802	[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	4803	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	4804	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4805
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4806	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4807
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4808	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4809	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4810	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4811
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4812	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4813	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4814
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4815	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4816	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4817	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4818	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4819	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4820
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4821	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4822
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4823	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4824	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4825	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4827	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4828	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4829	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4832	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4833	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4835	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4836	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4837	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4838	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4843	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4851	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4852	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4858	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4859	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4860	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4861	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4862	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4863	#name: 'Box1'
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	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4868	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4869	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4870	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4871	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4872	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4883	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4884	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4885	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4899	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4942	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4945	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4946	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4947	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4952	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4958	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4959	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4960
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4961	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4962	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4963	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4964
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4965	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4966	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4967	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4968
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4969	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4970
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4971	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4972
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4973	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4974	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4975	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4976	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4977	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4978	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4979	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4980	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4981	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4982	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4983	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4984	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4985	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4986	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4987	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4988	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4989	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4990	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4991	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4992	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4993	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4994	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4995	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4996	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4997	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4998	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4999	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5000	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5001	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5002	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5003	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5004	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5005	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5006	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5007	self warn:'WindowMigrationServer startup failed (see stderr).'
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5011	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5012	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5013
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5014	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5015
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5016	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5017	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5018	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5019
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5020	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5021	self remoteBrowsingEnabled value:(self hasRemoteBrowsingSupport
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5022	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5023	self windowMigrationEnabled value:(self hasWindowMigrationServer
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5024	and:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5025	WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5026	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5027	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5028	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5029	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5030	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5031	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5032	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5034	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5035	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5036	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5037
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5038	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5039
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5040	enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5041
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5042	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5043	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5044	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5045	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5046	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5047	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5048	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5049	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5050	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5051
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5052	remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5053
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5054	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5055	remoteBrowsingEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5056	remoteBrowsingEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5057	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5058	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5059	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5060
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5061	windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5062
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5063	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5064	windowMigrationAuthenticate := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5065	windowMigrationAuthenticate onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5066	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5067	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5068	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5069
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5070	windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5071
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5072	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5073	windowMigrationEnabled := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5074	windowMigrationEnabled onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5075	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5076	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5077	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5078
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5079	windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5080
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5081	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5082	windowMigrationPassword := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5083	windowMigrationPassword onChangeSend:#evaluateModified to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5084	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5085	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5086	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5087
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5088	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5089
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5090	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5091	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5092
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5093	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5094
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5095	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5096	"/ ^ self.
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	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5100	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5102	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5103
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5104	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5105	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5106	self readSettings.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5107	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5108
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5110
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5111	hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5112
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5113	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5114	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5115
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5116	hasUnsavedChanges
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	self remoteBrowsingEnabled value ~= (self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5120	self windowMigrationEnabled value ~= (self hasWindowMigrationServer and:[WindowMigrationServer isLoaded and:[WindowMigrationServer serverRunning]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5121	self windowMigrationPassword value ~= WindowMigrationServer password or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5122	self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil ]]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5123	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5124	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5125
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5126	hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5127
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5128	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5129	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5130
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5131	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5132
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5133	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5134	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5135	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5136
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5137	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5138	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5139
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5140	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5141	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5142	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5143	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5144	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5145
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5146	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5147
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5148	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5149	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5150	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	5151	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5152	@@@@@@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	5153	@ 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	5154	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	5155	@ 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	5156	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	5157	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5158
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5159	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5160
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5161	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5162	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5163	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5164
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5165	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5166	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5167
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5168	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5169	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5170	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5171	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5172	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5175
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5176	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5177	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5181	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5182	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5183	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5184	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5185	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5186	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5187	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5189	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5190	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5191	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5192	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5193	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5200	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5201	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5202	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5203	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5204	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5205	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5206	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5207	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5208	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5209	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5210	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5211	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5212	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5213	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5214	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5215	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5216	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5217	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5218	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5219	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5220	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5221	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5222	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5223	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5224	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5225	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5226	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5227	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5228	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5229	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5230	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5231	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5232	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5233	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5234	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5235	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5236	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5237	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5238	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5239	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5240	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5241	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5242	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5243	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5244	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5245	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5246	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5247	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5248	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5249	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5250	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5251	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5252	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5253	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5254	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5255	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5256	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5257	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5258	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5259	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5260	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5261	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5262	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5263	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5265	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5266	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5267	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5268	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5269	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5270	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5271	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5272	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5273	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5274	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5275	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5276	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5277	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5278	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5279	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5280	#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	5281	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5282	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5283	#adjust: #leftRight
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: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5287	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5288	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5289	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5290	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5291	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5292	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5293	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5294	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5295	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5296	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5297	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5298	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5299	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5300	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5301	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5302	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5303	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5306	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5307	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5308	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5309
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5310	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5311	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5312	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5313	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5315	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5316	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5317	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5318
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5319	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5320	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5321	! !
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	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5324
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5325	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5326
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5327	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5328	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5329	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5330	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5331	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5332	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5333	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5334
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5335	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5336	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5337	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5338
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5339	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5340	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5341	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5342	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5343	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5344	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5345	]
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	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5348
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5349	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5350	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5351
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5352	currentUserPrefs beepEnabled:self beepEnabled 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	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5355	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5356	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5357	Screen current activateOnClick:self activateOnClick value.
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	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5360
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5361	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5362	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5363
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5364	formatHostNameinWindowLabels
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5365	\|newFormat\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5367	newFormat := Dialog request:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5368	'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5369	withCRs initialAnswer:newWindowLabelFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5371	newFormat size > 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5372	newWindowLabelFormat := newFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5373	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5374	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5375	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5377	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5379	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5380	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5381	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5382
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5383	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5384	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5385	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5386	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5387	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5388	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5389	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5390	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5391	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5392	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5393	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5394	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5395	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5396	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5397	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5398	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5399	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5400	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5401
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5402	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5404	activateOnClick
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5406	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5407	activateOnClick := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5408	activateOnClick onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5409	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5410	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5411	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5413	beepEnabled
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5415	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5416	beepEnabled := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5417	beepEnabled onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5418	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5419	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5422	focusFollowsMouse
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425	focusFollowsMouse := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	focusFollowsMouse onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5429	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5431	formatHostNameWindowLabel
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5432
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5433	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5434	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5435	('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	5436	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5437	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5438	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5439
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5440	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5441	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5442	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5443
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444	hostNameInLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5445
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5446	hostNameInLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5447	hostNameInLabelHolder := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5448	hostNameInLabelHolder onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5449	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5450	^ hostNameInLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5451	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5452
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5453	newWindowLabelFormat
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5454
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5455	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5456	newWindowLabelFormat := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5457	newWindowLabelFormat onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5458	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5459	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5460
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5461	"Created: / 16.12.2002 / 17:50:49 / 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	opaqueTableColumnResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5466	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5467	opaqueTableColumnResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5468	opaqueTableColumnResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5469	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5472
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5473	opaqueVariablePanelResize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5474
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5475	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5476	opaqueVariablePanelResize := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5477	opaqueVariablePanelResize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5478	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5480	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482	returnFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5485	returnFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5486	returnFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5487	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5488	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5489	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5491	shadows
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494	shadows := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495	shadows onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5496	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5500	showAccelerators
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5501
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5503	showAccelerators := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504	showAccelerators onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5505	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5506	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5507	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5509	takeFocus
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5510
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512	takeFocus := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513	takeFocus onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5514	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5515	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5518	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5520	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5521	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5523	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5525	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5526	^ super postOpenAsSubcanvasWith:aBuilder
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	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5532	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5534
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5535	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5537	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5540	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5541	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5542	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5543	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5545	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5546	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5548	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5549	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5550	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5551	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5552	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5553
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5554	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5557	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5558
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5559	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5560	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5561	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5562
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5563	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5564	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5565
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5566	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5567	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5568	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5569	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5570	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5571
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5572	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5573
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5574	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5575	constantNamed:#'AbstractSettingsApplication::OsiSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5576	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	5577	@@@@_$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	5578	.+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	5579	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	5580	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	5581	[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	5582	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	5583	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5584
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5585	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5586
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5587	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5588	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5589	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5590
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5591	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5592	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5593
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5594	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5595	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5596	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5597	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5598	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5599
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5600	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5602	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5603	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5604	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5606	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5611	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5618	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5622	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5628	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5629	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5630	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5631	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5632	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5633	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5635	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5636	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5637	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5638	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5639	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5640	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5642	#name: 'Box1'
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	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5647	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5648	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5649	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5650	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5655	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5656	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5657	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5658	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5659	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5660	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5661	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5662	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5663	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5664	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5665	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5666	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5667	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5668	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5669	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5670	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5671
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5672	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5673	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5674	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5675	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5676	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5677	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5678	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5679	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5680	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5681	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5682	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5683	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5684	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5685	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5686	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5687	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5688	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5690	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5691	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5692	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5693	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5694	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5695	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5696	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5697	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5698	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5699	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5700	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5701	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5702	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5703	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5704	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5705	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5706	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5707	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5708	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5709	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5710	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5711	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5712	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5713	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5714	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5715
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5716	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5717	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5718	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5719	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5720	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5721	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5722	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5723	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5724	#label: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5725	#name: 'Label3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5726	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5727	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5728	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5729	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5730	#name: 'Box7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5731	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5732	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5733	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5734	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5735	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5736	#name: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5737	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5738	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5739	#model: #osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5743	#label: 'Log Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5744	#name: 'CheckBox8'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5745	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5746	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5747	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5748	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5749	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5750	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5752	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5753	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5754	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5755	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5756
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5757	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5758	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5759	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5760	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5761
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5762	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5763	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5764	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5765
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5766	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5767	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5768	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5769
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5770	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5771
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5772	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5773
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5774	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5775	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5776	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5777	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5778	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5779	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5780	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5781	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5782	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5783	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5784	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5785	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5786	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5787	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5788	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5789
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5790	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5791
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5792	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5793	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5794
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5795	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5796	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5797	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5798	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5799	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5800	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5801	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5802	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5803	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5804	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5805	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5806	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5807	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5808	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5809	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5811	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5812	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5813	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5814	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5815
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5816	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5818	osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5819	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5820
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5822	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5823	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5824	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5825
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5828	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5831	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5832	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5833	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5834
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835	osiACSEDataLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5842
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5845	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852	osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5853	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5854
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5855	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5856	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5862	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869	osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5879	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886	osiCMISEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5896	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903	osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5913	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920	osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5930	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937	osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5947	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5954	osiROSEInvokationLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5958	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5961
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5964	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5971	osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5978
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5981	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5986	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988	osiROSEResponseLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5995
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6000	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6008
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6010	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6014	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6016	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6017	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6018	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6019	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6020	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6021	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6022
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6023	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6024
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6025	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6026	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6027	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6028
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6029	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6030	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6031
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6032	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6033	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6034	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6035	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6036	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6037
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6038	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6039
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6040	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6041	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6042	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	6043	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6044	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@PDA@PDA@PDA@PDA@P@@@@@@@@@A@@@@@@@@@@@@@@@@@P@@@@@@@@@@@P@@@PDA@P@@@PDA@@D@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6045	@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	6046	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	6047	@PDA@PDA@PDA@P@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6048	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6049	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6050
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6051	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6052
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6053	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6054	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6055	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6056
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6057	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6058	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6059
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6060	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6061	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6062	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6063	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6064	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6065
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6066	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6067
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6068	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6069	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6070	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6071	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6072	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6073	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6074	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6075	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6076	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6077	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6078	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6079	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6080	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6081	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6084	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6085	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6086	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6087	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6088	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6089	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6090	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6091	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6092	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6099	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6112	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6122	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6126	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6142	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6143	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6163	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6173	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6177	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6184	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6196	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6200	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6206	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6210	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6233	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6237	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6243	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6247	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6261	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6265	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6271	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6275	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6289	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6293	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6299	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6301	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6303	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6305	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6307	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6309	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6310	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6311
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6312	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6314	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6319
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6322	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6326	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6327	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6330	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6331	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6332	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6333	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6334	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6335	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6336	)
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	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6340	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6341	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6343	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6344	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6345	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6346
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6347	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6348	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6349	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6351	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6352
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6353	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6354
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6355	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6356	Printer printCommand:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6357
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6358	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6359	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6360	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6361	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6362	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6363	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6364	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6365	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6366	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6367	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6368	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6369	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6370	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6371	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6372	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6373	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6374	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6375	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6376	].
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6379	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6380
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6381	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6382	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6383	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6384
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6385	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6386	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6387	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6388	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6389	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6390	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6391	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6392	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6393	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6394	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6395	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6396	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6397	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6398	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6399	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6400	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6402	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6404	bottomMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6406	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6407	bottomMargin := Printer bottomMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6408	bottomMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6409	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6410	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6411	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6413	enableColorBox
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6415	enableColorBox isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6416	enableColorBox := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6417	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6418	^ enableColorBox.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6419	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6420
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6421	enableFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6423	enableFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6424	enableFormat := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6425	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6426	^ enableFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6427	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6429	enableMargins
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6431	enableMargins isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6432	enableMargins := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6433	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6434	^ enableMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6435	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6436
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437	enablelandscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6439	enablelandscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6440	enablelandscape := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6441	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6442	^ enablelandscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6443	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6444
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6445	landscape
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6446
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6447	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6448	landscape := Printer landscape asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6449	landscape onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6450	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6451	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6452	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6454	leftMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6455
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6456	leftMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6457	leftMargin := Printer leftMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6458	leftMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6459	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6460	^ leftMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6461	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6463	pageFormat
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6464
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6465	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6466	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6467	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6468	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6469	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6470	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6471	pageFormat := 1 asValue.
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	pageFormat onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6476	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6477	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479	pageFormatList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6481	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6482	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6483	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6484	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6485	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6486
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6487	printCommand
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6489	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6490	printCommand := Printer printCommand asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6491	printCommand onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6492	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6493	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6494	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6495
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	printCommandList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6498	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6499	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6500	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6501	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504	printerType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6506	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6507	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6508	printerType onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6509	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6510	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6511	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6512
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6513	printerTypeSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6514
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6515	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6516	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6517	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6518	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6519	printerTypeSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6520	printerTypeSelection onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6521	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6522	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6523	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6525	rightMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6527	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6528	rightMargin := Printer rightMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6529	rightMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6530	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6531	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6532	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6534	selectedUnit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6536	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6537	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6538	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6539	selectedUnit changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6540	selectedUnit onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6541	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6542	^ selectedUnit.
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	supportsColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6547	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6548	supportsColor := Printer supportsColor asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6549	supportsColor onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6550	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6551	^ supportsColor.
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	topMargin
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6555
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6556	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6557	topMargin := Printer topMargin asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6558	topMargin onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6559	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6560	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6561	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6563	unitList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6565	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6566	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6567	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6573	printerTypeSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6574
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6576	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6577	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6578	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6579	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6580	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6581	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	printerTypeSelectionOrUnitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6590	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6591	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6593	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6594	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6595	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6596	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6597	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6598	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6599	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6602	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6603	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6604	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6605	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6606	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6608	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6611	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6613	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6614	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6615	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6616	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6619	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6620	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6624	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6627	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6629	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6630	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6631	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6632	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6633	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6634	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6636	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6639	unitListChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6640	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6641
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6642	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6643	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6644	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6645	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6646	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6648	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6649	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6650
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6651	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6655
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6656	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6658	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6659	^ super postOpenAsSubcanvasWith:aBuilder
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	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6663
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6664	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6665	^ super postOpenWith:aBuilder
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	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6669
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6670	commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6671	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6672	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6673	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6674	commandList := PrinterStream defaultCommands.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6675	commandList isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6676	commandList := #('lpr'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6677	'lp'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6678	) asOrderedCollection.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6679	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6680	(commandList includes:self printCommand value) not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6681	commandList add:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6682	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6683	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6684	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6685	^ commandList
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6686	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6687
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6688	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6691	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6692	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6693	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6694	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6695	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6696	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6697	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6698	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6699	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6700	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6701	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6702	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6703	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6704	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6705	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6706	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	6707	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	6708	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	6709	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6710	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6711	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6712	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6713	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6714	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6715	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6716
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6717	possiblePrinters
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6718	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6719	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6720	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6721	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6722	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6723
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6724	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6725
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6726	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6727	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6728	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6729
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6730	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6731	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6732
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6733	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6734	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6735	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6736	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6737	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6738
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6739	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6740
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6741	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6742	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6743	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	6744	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC@0L@@@@@@@@@@@@@@@@@@@@C@0LB@PDB@0LC@@@@@@@@@@@@@@@C@ HBA@DAA@HB@ L@@@@@@@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6745	@@@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	6746	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	6747	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	6748	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	6749	@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	6750	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6751
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6752	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6755	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6756	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6759	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6760
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6761	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6762	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6763	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6764	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6765	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6766
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6767	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6768
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6769	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6770	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6771	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6772	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6773	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6774	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6775	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6776	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6777	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6778	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6779	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6780	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6781	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6782	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6783	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6784	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6785	#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	6786	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6787	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6788	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6789	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6790	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6791	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6792	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6793	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6794	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6795	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6796	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6797	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6798	#extent: #(#Point 600 22)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6801	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6802	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6803	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6804	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6805	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6806	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6807	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6808	#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	6809	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6810	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6811	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6812	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6813	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6814
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6815	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6816	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6817	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6818	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6819
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6820	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6821	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6822	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6823
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6824	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6825	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6826	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6827
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6828	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6829
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6830	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6831
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6832	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6833	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6834	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6835	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6836	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6837	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6838	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6839	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6840	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6841	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6842	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6843
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6844	help
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	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6847	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6848	!
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	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6851	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6852	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6853	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6854	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6855
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6856	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6857
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6858	dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6859	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6860
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6861	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6862	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6863	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6864	"*** (and replace this comment by something more useful ;-)"
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	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6867	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6868	"/ 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	6869	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6870	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6871	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6872	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6873	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6874
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6875	preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6876	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6879	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6880	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6881	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6882
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6883	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6884	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6885	"/ 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	6886	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6887	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6888	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6889	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6890	! !
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	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6895
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6896	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6897	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6898	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6899	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6900	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6901
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6902	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6903
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6904	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6905	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6906	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6907
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6908	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6909	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6910
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6911	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6912	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6913	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6914	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6915	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6916
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6917	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6918
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6919	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6920	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6921	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	6922	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB (JB (JB (JB (JB (I2\@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6923	@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	6924	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	6925	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	6926	JR0+JP@,JP@@@@HUEP@@@@@@@@@@@B$+KB,,J20)JP@@@@@@@@@@@@@@@@@)K@@)J0@+JR$@@@@@@@@@@@@@@@@@@@@@JR0)@@@@@@@@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6927	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	6928	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6929
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6930	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6931
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6932	windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6933	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6934	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6935
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6936	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6937	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6938
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6939	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6940	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6941	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6942	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6943	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6944
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6945	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6946
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6947	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6948	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6949	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6954	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6955	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6956	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6967	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6968	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6969	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6970	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6971	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6972	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6973	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6976	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6987	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6988	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6989	#enableChannel: #hasRDoitServerClass
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6990	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6991	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6992	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6993	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6994
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6995	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6996	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6998	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7000	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7001	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7002	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7003	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7004	#label: 'Port:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7005	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7006	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7007	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7008	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7009	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7010	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7011	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7012	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7013	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7014	#model: #rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7015	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7016	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7017	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7018	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7019	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7020	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7021	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7022
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7023	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7024	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7025	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7026	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7027	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7028	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7029	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7030	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7031	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7033	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7034	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7035	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7036	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7037	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7038	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7039	)
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	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7044	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7045	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7052	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7054	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7056	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057	)
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	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7061	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7062	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7063	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7064	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7065	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7066	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7067	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7068	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7069	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7070	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7071	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7072	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7073	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7074	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7075	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7076
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7077	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7078	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7079	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7081
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7084	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7085	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7086
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7087	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7088	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7089	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7090
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7091	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7092	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7093	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7094
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7095	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7096
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7097	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7098
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7099	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7100
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7101	RDoItServer defaultPortNumber:self rDoitServerPort value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7102	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7103	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7104	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7105	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7106	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7107	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7108	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7109	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7110	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7111	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7112	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7113	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7114	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7115	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7116	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7117	]
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	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7120
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7121	help
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7122
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7123	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7124	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7125	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7126
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7127	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7128	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7129	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7130	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7131	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7132	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7133	self rDoitServerPort value:RDoItServer defaultPortNumber
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7134	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7135	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7136	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7137	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7138	self rDoitErrorDebugging value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7139	self rDoitServerPort value:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7140	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7141	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7143
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7144	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7145
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146	rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7147
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7149	rDoitErrorDebugging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7150	rDoitErrorDebugging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7151	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7152	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7153	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7154
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7155	rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7156
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7157	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7158	rDoitErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7159	rDoitErrorLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7160	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7161	^ rDoitErrorLogging.
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	rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7165
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7166	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7167	rDoitLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7168	rDoitLogging onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7169	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7172
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173	rDoitServerPort
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	rDoitServerPort isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7176	rDoitServerPort := ValueHolder new.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177	rDoitServerPort onChangeSend:#evaluateModified to:self
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	^ rDoitServerPort.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182	rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7184	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7186	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7187	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7188	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7190
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7191	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7192
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7193	rDoitsEnabledChanged
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7194	self evaluateModified.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	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	7196	RDoItServer autoload.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7197	rDoitServerPort value isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7198	rDoitServerPort value:(RDoItServer defaultPortNumber).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7199	]
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
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203	update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7204	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7205	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7206	^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7207	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7210	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7211
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7212	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7213
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7214	postOpen
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7215	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7216
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7217	postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7218
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7219	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7220	^ super postOpenAsSubcanvasWith:aBuilder
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	postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7224
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7225	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7226	^ super postOpenWith:aBuilder
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	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7230
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7231	hasRDoitServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7232
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7233	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7235
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7236	hasRDoitServerClass
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7237	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7238	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7239
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7240	hasUnsavedChanges
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7241
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7242	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7243	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7244	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7245	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7246	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7247	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7248	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7249	self rDoitServerPort value ~= RDoItServer defaultPortNumber]]])]]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7250	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7251	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7252	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7253	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7254
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7255	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7256
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7257	stcCompilationDemoStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7258
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7259	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7260	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7261
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7262	stcCompilationFullVersionStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7263
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7264	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7265	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7266
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7267	stcCompilationOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7268
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7269	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7270	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7271
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7272	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7273
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7274	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7277
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7278	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7279	the ImageEditor may not be able to read the specification."
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	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7283	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7284	Icon flushCachedIcons
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	<resource: #image>
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	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7290	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7291	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	7292	@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@H@
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7293	@@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	7294	@@@@@@@@@@@@@@@@@@@@@@@@@ @@@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	7295	@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	7296	@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	7297	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7298	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7299
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7300	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7303	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7307	the UIPainter may not be able to read the specification."
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	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7310	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7311	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7312	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7314
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7315	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7316
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7317	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7318	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7319	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7320	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7321	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7322	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7323	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7324	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7325	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7326	#bounds: #(#Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7327	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7328	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7331	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7333	#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	7334	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7337	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7339	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7342	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7343	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7345	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7346	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7347	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7348	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7351	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7354	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7355	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7358	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7360	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7361	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7363	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7364
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7366	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7367	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7369	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7370	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7372	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7373	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7374	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7376	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7379	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7380	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7382	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7383	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7385	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7386	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7387	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7388	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7389	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7390	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7393	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7394	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7396	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7397	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7398	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7400	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7401	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7402	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7404	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7405	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7407	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7408	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7409	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7410	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7411	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7412	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7413	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7414	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7415	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7416	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7417	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7418	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7422	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7424	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7425	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7428	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7429	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7430	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7432	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7434	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7435	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7437	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7438	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7439	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7440	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7441	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7443	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7444	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7445	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7446	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7449	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7450	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7451	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7452	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7453	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7455	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7457	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7458	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7459	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7460	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7461	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7462	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7463	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7464	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7465	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7466	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7467	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7468	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7469	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7471	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7472	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7473	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7474	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7475	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7478	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7480	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7481	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7482	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7483	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7484	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7485	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7486	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7488	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7494	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7497	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7500	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7501	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7506	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7509	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7512	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7513	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7514	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7515	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7516	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7520	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7521	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7522	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7524	#model: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7525	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7527	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7528	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7529	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7530	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7531	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7533	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7534	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7536	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7537	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7540	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7541	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7542	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7543	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7544	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7549	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7550	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7551	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7552	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7553	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7555	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7556	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7557	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7558	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7562	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7563	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7564	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7565	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7569	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7570	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7572	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7578	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7579	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7580	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7581	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7582	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7583	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7584	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7585	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7586	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7590	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7592	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7593	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7594	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7596	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7597	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7598	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7600	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7605	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7606	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7607	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7609	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7611	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7612	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7613	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7614	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7617	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7618	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7620	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7621	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7623	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7624	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7625	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7626	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7628	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7632	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7633	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7634	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7635	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7636	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7637	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7638	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7639	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7640	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7641	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7642	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7643	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7644
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7645	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7646	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7647	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7648	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7649
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7650	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7651	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7652	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7653
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7654	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7655	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7656	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7657
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7658	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7659
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7660	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7661
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7662	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7663	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7664	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7665	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7666	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7667	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7668	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7669	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7670	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7671	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7672	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7673	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7674	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7675	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7676	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7677	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7678	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7679	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7680	].
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
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7683	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7684
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7685	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7686	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7687	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7688
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7689	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7690	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7691	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7692	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7693	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7694	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7695	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7696	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7697	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7698	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7699	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7700	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7701	\|t\|
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	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7704	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7705	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7706	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7707	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7708	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7709	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7710	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7711	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7712	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7713	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7714	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7715	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7716	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7717	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7718	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7719
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7720	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7721
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7722	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7723
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7724	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7725	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7726	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7727	^ canLoadBinaries.
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	cc
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7731
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7732	cc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7733	cc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7734	cc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7735	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7736	^ cc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7737	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7738
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739	ccOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7741	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742	ccOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7743	ccOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7744	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7745	^ ccOptions.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7748	enableStcLibraryPath
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	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7753	linkArgs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7754
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7755	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7756	linkArgs := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7757	linkArgs onChangeSend:#evaluateModified to:self.
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	^ linkArgs.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7762	linkCommand
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7763
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7764	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7765	linkCommand := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7766	linkCommand onChangeSend:#evaluateModified to:self.
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	^ linkCommand.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7771	stc
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	stc isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7774	stc := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7775	stc onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7776	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7777	^ stc.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7780	stcCompilationList
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	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7783	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7784	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7785	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7786	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
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	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7789	^ stcCompilationList.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7792	stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7793
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7794	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7795	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7796	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7797	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7798	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7799	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7800	stcCompilationSelection onChangeSend:#evaluateModified to:self.
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	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7803	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7804
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7805	stcDefines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7806
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7807	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7808	stcDefines := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7809	stcDefines onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7810	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7811	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7812	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7813
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7814	stcIncludes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7815
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7816	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7817	stcIncludes := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7818	stcIncludes onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7819	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7820	^ stcIncludes.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7823	stcLibraries
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	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7826	stcLibraries := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7827	stcLibraries onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7828	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7829	^ stcLibraries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7832	stcLibraryPath
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	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7835	stcLibraryPath := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7836	stcLibraryPath onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7837	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7838	^ stcLibraryPath.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7841	stcOptions
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	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7844	stcOptions := ValueHolder new.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7845	stcOptions onChangeSend:#evaluateModified to:self.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7846	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7847	^ stcOptions.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7850	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
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	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7855	searchedLibs := ObjectFileLoader searchedLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7857	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7858	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7863	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7864	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7867	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7868	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7869	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7870	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7871	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7872	ObjectFileLoader libPath ~= self stcLibraryPath value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7873	])])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7874	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7875	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7876	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7877
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7878	thisIsADemoVersion
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7879
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7880	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7881	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7882
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7883	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7884
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7885	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7886
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7887	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7888	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7889	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7890
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7891	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7892
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7893	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7894	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7895	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7896	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7897	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7898	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7899	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7900	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7901	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7902	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7903	Transcript showCR:''world''.
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	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7906	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7907	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7908	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7909	Transcript showCR:''hello''. "/ long blocks
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	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7912	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7913	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7914	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7915	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7916	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7917	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7918	Transcript showCR:''hello''. "/ looping
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	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7921	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7922	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7923	self someAction "/ blocks
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	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7926	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7927	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7928
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7929	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7930
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7931	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7932	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7933	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7934
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7935	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7936	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7937
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7938	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7939	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7940	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7941	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7942	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7943
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7944	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7945
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7946	^Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7947	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7948	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	7949	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	7950	@@(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	7951	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	7952	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	7953	@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	7954	@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	7955	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7956
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7957	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7958
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7959	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7960	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7961	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7962
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7963	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7964	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7965
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7966	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7967	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7968	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7969	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7970	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7971
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7972	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7973
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7974	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7975	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7976	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7977	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7978	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7979	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7980	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7981	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7982	#max: #(#Point 1024 768)
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7983	#bounds: #(#Rectangle 16 42 620 718)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7984	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7985	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7986	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7988	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990	#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	7991	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7993	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7994	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7996	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7997	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7998	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7999	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8000	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8002	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8003	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8004	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8007	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8008	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8009	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8010	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8011	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8012	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8013	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8016	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8017	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8018	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8021	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8022	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8037
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8038	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039	#extent: #(#Point 594 300)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8046	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8047	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8048	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8049	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8050	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8061	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8062	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8063	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8064	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8065	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8070
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8071	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8073	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8074	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8077	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8082	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8097	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8098	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8102	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8103	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8113	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8114	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8123	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8130	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8131	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8136	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8137	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8140	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8142	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	#model: #maxLengthForSingleLineBlocks
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8155	#type: #number
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8159	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8161	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8162
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8169	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8170	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8173	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8174	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	#extent: #(#Point 292 22)
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	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	#extent: #(#Point 293 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8197	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8198	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8199	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8200
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8201	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8202	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8203	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8204	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8205
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8206	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8207	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8208	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8209
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8210	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8211	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8212	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8213
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8214	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8215
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8216	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8217
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8218	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8219	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8220	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8221	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8222	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8223	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8224	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8225	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8226	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8227	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8228	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8229	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8230	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8231	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8232	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8233	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8234	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8235	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8236	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8237
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8238	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8239
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8240	"/ self warn:'no help available here'.
4419 d5de0cf67edb new source code format settings help file penk parents: 4405 diff changeset	8241	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8242	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8243
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8244	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8245	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8246	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8247	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8248	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8249	self emptyLineAfterTemporaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8250	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8251	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8252	self spaceAfterKeywordSelector
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8253	value:RBFormatter spaceAfterKeywordSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8255	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8256	self maxLengthForSingleLineBlocks
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8257	value:RBFormatter maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8260	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8261	self modifiedChannel value:false
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8264	reformat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8266	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8267	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8268	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8269
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270	reformatLocked ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8272	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8273	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8274	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8275	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8276	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8277	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8278	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8280	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8281	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
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	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8285	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8286	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8288	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8289	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8290	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8291	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8292
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8293	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8294	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8295	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8296	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298	self error:'No parent for node'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	self editorText value:tree printString.
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:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8305	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8306	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8307	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8308	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8309	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8310	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8311	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
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	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8317	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8318	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8319	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8320	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8322	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8323	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8324	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8325	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8326	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8328	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8329
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8330	resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8331
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8332	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8335	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8336	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8337	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8338	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8339	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8340	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8341	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8342	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8343	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8345	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8346
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8347	autoFormat
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	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8350	autoFormat := currentUserPrefs autoFormatting asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8351	autoFormat onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8352	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8353	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8354	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8355
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8356	blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8357
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8358	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8359	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8360	blockArgumentsOnNewLine addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8361	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8362	^ blockArgumentsOnNewLine.
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	cStyleBlocks
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	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8368	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8370	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8371	^ cStyleBlocks.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8374	editorText
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	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8377	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8378	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8379	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8380	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8381
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8382	emptyLineAfterTemporaries
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	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8385	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8386	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8387	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8388	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8389	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8390
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8391	maxLengthForSingleLineBlocks
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	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8394	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8395	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8396	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397	^ maxLengthForSingleLineBlocks.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8400	spaceAfterKeywordSelector
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	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8403	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8404	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8405	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406	^ spaceAfterKeywordSelector.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8409	spaceAfterReturnToken
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	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8412	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8413	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8414	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8415	^ spaceAfterReturnToken.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8418	spaceAroundTemporaries
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	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8421	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8422	spaceAroundTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424	^ spaceAroundTemporaries.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8427	tabIndent
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	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8430	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8431	tabIndent addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8432	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8433	^ tabIndent.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8436	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
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	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8439	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8440	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8441	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8442	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8443	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8444	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8445	changedObject == self spaceAroundTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8446	changedObject == self tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8447	]]]]]]]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8448	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8450	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8451	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8452	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8453	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8454
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8455	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8456
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8457	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8458	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8459	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8460	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8461	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8463	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8464	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8465	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8466	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8467
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8468	postBuildTextEditor:aWidget
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8469
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8470	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8471	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8472	! !
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8475
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8476	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8477
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8478	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8479	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8480	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8481	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8482	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8483	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8484	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8485	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8486	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8487	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8488	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8489	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8490	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8491
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8492	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8495	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8496	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8499	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8500
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8501	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8502	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8503	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8504	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8505	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8506
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8507	<resource: #image>
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	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8510	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8511	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	8512	@@@@@@@@@@@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	8513	@@@QMTT5H0$@@@@@@@@@@@ F@@@@@@@@FT(>GPX@@@@@@@@@@@@@A @@@@@@@A!!HMR4H@@@@@@@@@@@@@@@@@@XNE1\ QSL]B0XFA @@@@@@@@@@@@@FGDAI
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8514	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	8515	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	8516	@@@@@@@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	8517	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	8518	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8519
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8520	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8521
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8522	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8523	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8524	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8526	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8527	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8529	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8530	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8531	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8532	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8533	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8534
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8535	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8537	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8538	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8539	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8540	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8541	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8542	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8543	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8544	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8545	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8546	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8547	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8548	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8549	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8550	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8551	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8552	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8553	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8554	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8555	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8556	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8557	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8558	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8559	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8560	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8561	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8562	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8563	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8565	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8566	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8567	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8568	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8569	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8570	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8571	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8572	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8573	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8574	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8575	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8576	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8577	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8578	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8579	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8580	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8581	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8582	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8583	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8584
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8585	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8586	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8587	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8588	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8589	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8590	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8591	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8592	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8593	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8594	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8595	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8596	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8597	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8598	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8599	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8600	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8601	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8602	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8603	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8604	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8605	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8606	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8607	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8608	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8609	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8610	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8611	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8612	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8613	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8614	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8615	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8616	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8617	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8618	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8619	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8620
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8621	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8622	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8623	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8624	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8625	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8626	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8627	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8628	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8629	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8630	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8631	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8632	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8633	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8634	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8635	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8636	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8637	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8638	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8639	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8640	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8641	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8642	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8643	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8644	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8645	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8646	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8647	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8648	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8649	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8650	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8651	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8652	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8653
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8654	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8655	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8656	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8657	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8658	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8659	#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	8660	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8661	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8662	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8663	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8664	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8665	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8666	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8668	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8669	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8670	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8671	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8672	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8673	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8674	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8675	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8676	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8677	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8678	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8679	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8680	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8681	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8682	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8683	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8684	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8685	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8686	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8687	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8688	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8689	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8690	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8691	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8692	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8693	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8694	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8695	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8696	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8697	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8698	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8699	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8700	#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	8701	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8703	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8704	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8705	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8706	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8707	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8708	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8709	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8710	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8711	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8712	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8713	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8714	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8715	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8716	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8717	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8718	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8719	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8720	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8721	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8722	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8723	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8724	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8725	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8726	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8727	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8728	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8729	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8730	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8732	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8733	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8734	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8735	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8736	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8737	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8738	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8739	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8740	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8742
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8743	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8744	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8745	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8746
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8747	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8748	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8749	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8750	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8751	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8752	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8753	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8754	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8755	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8756	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8757	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8758	#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	8759	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8760	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8761	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8762	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8763	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8764	#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	8765	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8766	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8767	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8768	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8769	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8770	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8771	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8772	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8773	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8774
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8775	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8776	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8777	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8779	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8780	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8781	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8782	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8783	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8784	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8785	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8786	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8787	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8788	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8789	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8790	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8791	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8792	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8793	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8794	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8795	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8796	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8797	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8798	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8799	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8800	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8801	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8802	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8803	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8804
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8806	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8807	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8808	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8809	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8810	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8811	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8812	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8813	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8814	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8815	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8816	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8817	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8818	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8819	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8820	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8821	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8822
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8823	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8824	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8825	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8826	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8827	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8828	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8829	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8830	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8831	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8832	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8833	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8834	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8835	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8836	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8837	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8838	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8839	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8840
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8841	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8842	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8843	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8844	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8845
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8846	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8847	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8848	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8849	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8851	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8852	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8853	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8855	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8856	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8857	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8858
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8859	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8861	manager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8862
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8863	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8864	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8865
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8866	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8867
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8868	addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8869
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8870	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8871
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8872	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8873	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8874	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8875	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8876	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8877	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8878	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8879	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8880	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8881	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8882	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8883
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8884	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8885
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8886	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8887	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8888	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8889	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8890	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8891	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8892
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8893	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8894	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8895	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8896	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8897	(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	8898	(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	8899	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8900	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8901	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8902	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8903	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8904	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8905	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8906	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8907	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8908	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8909	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8910	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8911	self warn:'Invalid sourceCache directory.'
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	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8914	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8915
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8916	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8917	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8918	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8919	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8920	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8921	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8922	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8923	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8924	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8925	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8926	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	8927	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8928	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	8929	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8930	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8931	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8932	Smalltalk at:#SourceCodeManager put:nil
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	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8936	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8937	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8938
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8939	condenseSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8941	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8942	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8944	flushSourceCache
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8945
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8946	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8947	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8949	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8950
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8951	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8952	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8953	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8954
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8955	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8956	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8957	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8958	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8959	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8960	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8961	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8962	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8963	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8964	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8965	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8966	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8967	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8968	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8969	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8970	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8971	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8972	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8973	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8974	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8975	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8976	rootsPerModule notNil ifTrue:[
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8977	listOfModules := rootsPerModule keys asList.
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8978	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	8979	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8980	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8981	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8982
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8983	removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8984
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8985	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8986
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8987	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8988	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8989	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8990	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8991	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8992	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8993	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8995	setupSourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8997	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8998	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8999	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9000	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9001	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9002	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9003	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9004	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9005
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9006	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9007
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9008	acceptChannel
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9009
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9010	acceptChannel isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9011	acceptChannel := TriggerValue new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9012	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9013	^ acceptChannel.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9014	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9015
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9016	checkClassesWhenCheckingIn
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9018	checkClassesWhenCheckingIn isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9019	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9020	checkClassesWhenCheckingIn onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9021	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9022	^ checkClassesWhenCheckingIn.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9023	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9024
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9025	cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9026	cvsBinDirectoryHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9027	cvsBinDirectoryHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9028	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9029	^ cvsBinDirectoryHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9030	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9031
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9032	cvsIsSetup
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9033	cvsIsSetup isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9034	cvsIsSetup := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9035	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9036	^ cvsIsSetup.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9037	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9038
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9039	cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9040
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9041	cvsRootHolder isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9042	cvsRootHolder := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9043	cvsRootHolder onChangeSend:#evaluateModified to:self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9044	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9045	^ cvsRootHolder.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9046	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9047
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9048	cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9049
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9050	cvsRootPrototypeList isNil ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9051	OperatingSystem getDomainName = 'exept' ifFalse:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9052	cvsRootPrototypeList := #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9053	'host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9054	':pserver:user@host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9055	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9056	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9057	] ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9058	cvsRootPrototypeList := #(
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9059	'/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9060	'exept:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9061	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9062	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9063	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9064
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9065	OperatingSystem isUNIXlike ifTrue:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9066	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9067	'/cvs/stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9068	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9069	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9070	OperatingSystem isMSDOSlike ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9071	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9072	':local:c:\cvs\stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9073	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9074	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9075	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9076	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9077	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9078	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9079	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9080	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9081
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9082	listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9083
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9084	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9085	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9086	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9087	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9088	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9089	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9090
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9091	localSourceFirst
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9092
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9093	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9094	localSourceFirst := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9095	localSourceFirst onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9096	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9097	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9098	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9099
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9100	perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9101	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9102
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9103	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9104	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9105	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9106	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9107
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9108	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9109	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9110	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9111	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9112	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9113	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9114	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9115	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9116
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9117	perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9118	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9119
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9120	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9121	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9122	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9123	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9124
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9125	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9126	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9127	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9128	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9131	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9132	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9133
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9134	removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9135
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9136	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9137	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9138	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9139	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9140	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9141
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9142	selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9143
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9144	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9145	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9146	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9147	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9148	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9149	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9150	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9151	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9152
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9153	sourceCacheDir
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9154	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9155	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9156
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9157	useManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9158	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9159	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9160
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9161	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9162
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9163	selectedPerModuleRootChanged
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9164
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9165	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9166
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9167	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9168	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9169	module isNil ifTrue:[ ^ self].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9170	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9171	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9172	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9173	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9174	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9175
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9176	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9177	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9178
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9179	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9180
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9181	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9182	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9183
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9184	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9185	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9186	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9187	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9188	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9189	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9190	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9191	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9192	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9193	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9194	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9195	(fn exists
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9196	and:[fn isDirectory
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9197	and:[fn isReadable
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9198	and:[fn isWritable]]]) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9199	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9200	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9201	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9202	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9203	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9204	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9206	update:something with:aParameter from:changedObject
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9207	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9208	self sourceDirChanged.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9209	self evaluateModified.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9210	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9211	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9212
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9213	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9214	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9215	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9216	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9217
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9218	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9219	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9220
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9221	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9222
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9223	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9224	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9225
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9226	useManager := false asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9227	useManager onChangeSend:#evaluateModified to:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9228
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9229	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9230	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9231
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9232	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9233	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9234
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9235	SourceCodeManager == CVSSourceCodeManager ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9236	rootsPerModule declareAllFrom:(SourceCodeManager repositoryNamesPerModule).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9237	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9238
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9239	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9240	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9241
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9242	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9243	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9244
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9245	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9246
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9247	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9248	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9249	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9251	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9253	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9254	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9255	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9256
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9257	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9259	hasManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9260	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9261	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9262	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9264	hasUnsavedChanges
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9265	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil))
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9266	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9267
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9268	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9269	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9270	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9271	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9272	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9273	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9274
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9275	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9276	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9277
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9278	(CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9279	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9280
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9281	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9282	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9283
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9284	((Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9285	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9286
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9287	(self sourceCacheDir value ~= AbstractSourceCodeManager cacheDirectoryName)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9288	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9289
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9290	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9291	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9293	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9295	standardStyles
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9296
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9297	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9298	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9299	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9300	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9301	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9302	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9303	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9304	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9305	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9306	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9307	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9308
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9309	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9310
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9311	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9312	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9313	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9314
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9315	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9316	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9317
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9318	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9319	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9320	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9321	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9322	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9323
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9324	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9325
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9326	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9327	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9328	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	9329	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DBAPD@@@@@@@@@@@@@@@@@@@@@@@DBAPTF@P@@@@@@@@@@@@@@@@@@@@DBAPTFA DA@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9330	@@@@@@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	9331	@ 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	9332	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	9333	@ 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	9334	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	9335	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9336
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9338
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9339	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9340	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9341	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9343	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9344	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9345
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9346	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9347	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9348	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9349	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9350	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9351
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9352	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9355	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9359	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9360	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	#max: #(#Point 1024 768)
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9363	#bounds: #(#Rectangle 16 42 491 573)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9371	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9374	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9375	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9376	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9378	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9379	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9380	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9381	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9382	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9384	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9388	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9389	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9390	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9391	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9392	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9393	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9396	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9397	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9398	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9399	#hasVerticalScrollBar: true
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9400	#doubleClickSelector: #doubleClickAt:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9401	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9402	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9403	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9404	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9406	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9407	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9408	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9409
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9410	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9411
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9412	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9413
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9414	\| newStyle transcript\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9415
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9416	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9417
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9418	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9419	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9420	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9421	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9422	DebugView newDebugger.
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9423	transcript := Transcript current.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9424	transcript notNil ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9425	\| app\|
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9426	app := transcript topView application.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9427	(app respondsTo:#reopenLauncher) ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9428	app reopenLauncher.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9429	].
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9430	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9431	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9432
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9433	doubleClickAt:aLine
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9434
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9435	self saveSettings.
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9436	!
7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9437
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9438	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9440	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9441	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9442	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9443
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9444	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9445	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9446	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9447
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9448	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9449
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9450	infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9452	infoLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9453	infoLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9454	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9455	^ infoLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9456	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9458	noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9459
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9460	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9461	noticeLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9462	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9463	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9464	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9465
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9466	selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9467
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9468	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9469	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9470	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9471	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9472	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9473	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9474
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9475	showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9477	showStandardStylesOnly isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9478	showStandardStylesOnly := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9479	showStandardStylesOnly addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9481	^ showStandardStylesOnly.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9482	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9483
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9486	styleList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487	styleList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	styleList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9489	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9490	^ styleList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9492
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495	changeInfoLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9499	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9500	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9503	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9504	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9505	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9506	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9507	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9508	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9509	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9512	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9514	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9515	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9517	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9518	self changeInfoLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9519	self evaluateModified.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9521	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9523	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9526	updateList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9530	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9531	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9532	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543	self selectedStyle value:lastSelection.
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	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548	closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9551	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9555	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9556	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9568
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9569	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9570
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9571	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9572	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9573	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9574	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9575	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9576	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9577	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9580	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9581	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9582	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9583	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	9584	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9585	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9586	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9587
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9588	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9589	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9590	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9591	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9594
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9596	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9597	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9598	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9599	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9600	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9601	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9602
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9603	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9604
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9605	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9606
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9607	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9608	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9609
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9610	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9611
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9612	emphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9613
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9614	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9615	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9616	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9617	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9618	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9619	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9620	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9621	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9622	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9623	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9624	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9625	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9626	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9627	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9628	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9629	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9630	#reverse
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	!
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	exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9635
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9636	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9637	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9638	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9639
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9640	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9641
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9642	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9643	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9644	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9645	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9646	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9647	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9649	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9650	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9651	^ self.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9655	fontList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9656
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9657	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9658	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9665	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9666	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9667	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9668	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9669	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673	reverse
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	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9682
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9683	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9684	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9685
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9690	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696	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	9697	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	9698	@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	9699	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	9700	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	9701	@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	9702	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	9703	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	the UIPainter may not be able to read the specification."
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	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9722	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9726	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9733	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738	#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	9739	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9744	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9745	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9760	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9761	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9762	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	#extent: #(#Point 685 280)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9786	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9787	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9804	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9805	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	#adjust: #left
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9823	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9824	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	#labelsAreColored: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	)
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9849	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9850	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9851	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9852	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9853	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9862	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9863	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9869	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9872	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9873
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9874	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9875	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9876	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9877	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9878
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9879	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9883	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9884	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9889	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9890
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9891	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9892	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9893	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9894	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9895
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896	formattingConfiguration
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9897	"automatically generated by UIPainter ..."
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	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9900	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9901	"*** Please change as required and accept in the browser."
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	"action to be added ..."
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	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9909
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9910	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9914	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9915	\|colorList resetListLoc\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9916
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9918	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9919	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9920	current) declareAllFrom:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9922	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9923	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9924	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9925	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9926	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9927	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9928	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9929	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9930	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9931	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9933	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9934	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9935
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9936	recolor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9937
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9938	\|text\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9943	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9947
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9948	resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9949
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9950	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9951
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9952	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9953	currentUserPrefs perform:resetSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9954	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9955	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9956	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9957
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9958	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
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	coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	coloredText := ValueHolder new.
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	^ coloredText.
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	fullSelectorCheck
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	fullSelectorCheck isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9971	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9972	fullSelectorCheck onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9973	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974	^ fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9975	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9976
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9977	resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9978
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9979	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9980	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9981	"/ 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	9982	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983	"/ resetList onChangeSend:#resetListChanged to:self.
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	^ resetList.
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	resetListSelection
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	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9993	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9995
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9996	syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9997
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9998	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9999	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10003	!
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	syntaxColoring
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	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10009	syntaxColoring addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	syntaxColoring onChangeSend:#evaluateModified to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10012	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10013	!
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	syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10016	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10021	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10022
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10023	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10025	"/ 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	10026	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10027	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10028	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10029	^ syntaxElementList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10030	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10031
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10032	syntaxElementSelection
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	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10035	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10036	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10037	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10038	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10039	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10040	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10041
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10042	syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10043	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10049
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10050	syntaxEmphasisList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10051	syntaxEmphasisList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052	"/ 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	10053	"/ syntaxEmphasisList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10056	^ syntaxEmphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10059	syntaxEmphasisSelection
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	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10063	syntaxEmphasisSelection addDependent:self.
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	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10066	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10067
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10068	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
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	getEmphasis:anEmphasisOrSymbol
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10074	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10075
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10076	syntaxColorChanged
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	currentUserPrefs at:(self syntaxColorSelector value) put:(self syntaxColor value).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080	self evaluateModified.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10082
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083	syntaxElementSelectionChanged
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	\| syntaxEmphasisValue \|
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	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10089	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10090	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10093	syntaxEmphasisSelectionChanged
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	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10097	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10098	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
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	update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10104	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10105	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10106	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10107	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10108	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10110	^ self.
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	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10113	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10114	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10115	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10116	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10117	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10118	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10119	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	super update:something with:aParameter from:changedObject
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	initialize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10128	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10129
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10131	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10132	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10133	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10136	initializeEmphasisDictionary
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10137
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10139	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10140	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10141	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10143	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10144	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10145	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10147	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10148	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	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	10150	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	10151	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153	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	10154	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	10155	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10156	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157	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	10158	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	10159	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10160	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10161	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	10162	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	10163	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	emphasisDictionary at:entry put:entry
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10166	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10170	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10174	release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10175
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10178	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10179	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10180	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10182	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10183
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	hasUnsavedChanges
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	\|colorList colorPerformer emphasisPerformer\|
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	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10189	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10190	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10191	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10192	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10193	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10194	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10197	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10202	^ false
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10205	syntaxColorSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10206
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10207	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10208	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10209
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10210	syntaxColorSelectorForElement:aSyntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10211
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10212	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10213	!
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	syntaxEmphasisSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10216
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10217	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10218	!
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	syntaxEmphasisSelectorForElement:anEmElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10221
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10222	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10225	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10226
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10227	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10228	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10229	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10230
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10231	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10232	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10233
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10234	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10235	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10236	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10237	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10238	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10239
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10240	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10241
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10242	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10243	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10244	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	10245	@@@@@@@@@@@@A XFA @@@@@@@@@@@@@@@@@@@@@@A!!HRCPX@@@@@@@@@@@@@@@@@@@@@A!!H.KP4MA @@@@@@@@@@@@@@@@@@@@XRPB<#H0L@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10246	@@@@@@@FD$@/H2LC@@@@@@@@@@@@@@@@@@@@A!!H6LRH"@P@@@@@@@@@@@@@@@@@@@@XFC#LKB0D@@@@@@@@@@@@@@@@@@@@@@@XZ@PD@@@@@@@@@@@@@@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10247	@@@@@@@FF DA@@@@@@@@@@@@@@@@@@@@@@@@A!!(A@P@@@@@@@@@@@@@@@@@@@@\GA3@ZDQDAAPT@@@@@@@@@@@@@@@\;QDP''EQ@PE@$IAP@@@@@@@@@@@@@G
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10248	N4QDI1TPDAPIBPT@@@@@@@@@@@@@A31CP3(UJ"( B (D@@@@@@@@@@@@@@\>Q4\8IR0,J1@PA@@@@@@@@@@@@@@GO$]GNBT,KB,PD@P@@@@@@@@@@@@@A35H
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10249	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	10250	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	10251	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10252
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10253	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10255	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10256	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10257	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10259	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10260	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10261
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10262	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10263	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10264	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10265	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10266	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10268	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10270	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10271	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10272	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10273	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10274	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10275	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10276	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10277	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10278	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10279	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10280	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10281	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10282	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10283	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10284	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10285	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10286	#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	10287	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10288	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10289	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10290	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10291	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10292	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10293	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10294	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10295	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10296	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10297	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10298	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10300	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10301	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10302	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10303	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10304	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10305	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10306	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10307	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10309	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10311	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10312	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10313	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10314	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10315	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10316	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10318	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10319	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10320	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10321	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10322	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10323	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10327	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10330	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10334	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10335	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10337	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10338	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10339	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10340
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10341	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10342	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10343	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10344	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10345	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10346	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10347	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10348	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10351	#collection: #(
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: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10354	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10355	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10356	#model: #updChanges
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10360	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10361	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10362	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10363	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10366	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10367	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10368	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10369	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10370	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10371	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10372	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10374	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10375	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10376	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10377	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10378	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10379	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10380	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10381	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10382	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10383	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10384
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10385	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10386	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10387	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10388	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10389
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10390	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10391	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10392	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10393	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10395	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10396	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10397	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10398
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10399	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10400	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10401	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10402
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10403	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10404
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10405	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10406
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10407	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10408	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10409	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10410	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10411	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10412	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10413	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10414	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10415
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10416	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10418	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10419	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10420
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10421	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10422	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10423	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10424	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10425	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10426	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10427	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10428	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10429	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10430	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10432	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10433
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10434	changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10435
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10436	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10437	changeFileName := ObjectMemory nameForChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10438	changeFileName onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10439	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10440	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10441	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10442
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10443	classInfos
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10444
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10445	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10446	classInfos := Object infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10447	classInfos onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10448	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10449	^ classInfos.
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	displayErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10453
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10454	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10455	displayErrors := DeviceWorkstation errorPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10456	displayErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10457	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10458	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10459	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10460
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10461	logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10462
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10463	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10464	logDoits := Smalltalk logDoits asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10465	logDoits onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10466	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10467	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10468	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10469
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10470	updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10471
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10472	updChanges isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10473	updChanges := Class updatingChanges asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10474	updChanges onChangeSend:#evaluateModified to:self
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10475	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10476	^ updChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10477	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10479	vmErrors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10481	vmErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10482	vmErrors := ObjectMemory debugPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10483	vmErrors onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10484	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10485	^ vmErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10486	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10488	vmInfo
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10490	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10491	vmInfo := ObjectMemory infoPrinting asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10492	vmInfo onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10493	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10494	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10495	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10496
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10497	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10498
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10499	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10500
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10501	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10502	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10503	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10505	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10507	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10509	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10510	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10511	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10512	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10513	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10514	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10515	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10516	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10517
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10518	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10519
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10520	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10521	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10522	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10523
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10524	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10525	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10526
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10527	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10528	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10529	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10530	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10531	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10532
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10533	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10534
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10535	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10536	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10537	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	10538	@ 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	10539	@@@@@@@D@ XFA @@@@@@@@@@@@HB@@@@@@@@@@HC@ XFA @@@@@@@@@B@ @@@@@@@@@@@@\BCPXF@@@@@@@@@ H@@@@RB @@@@@@@ <MA @@@@@@@@HB@@@@
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10540	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	10541	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	10542	@@@@@@@@@@@@D 4@@@HB@@@@@@@@@@@@@@@@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@@@@@@@@@@@@@@@@HB@ HB@ HB@ HB
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10543	@ 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	10544	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10545
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10546	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10548	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10549	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10550	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10552	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10555	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10556	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10557	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10558	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10559	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10561	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10563	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10564	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10566	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10567	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10568	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10569	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10570	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10571	#max: #(#Point 1024 768)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10572	#bounds: #(#Rectangle 16 42 511 513)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10573	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10575	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10576	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10577	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10578	#name: 'VerticalPanel2'
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10579	#layout: #(#LayoutFrame 0 0 0 0 358 0 234 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10580	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10581	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10582	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10583	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10584	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10585	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10586	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10587	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10588	#label: 'Use the New Changes Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10589	#name: 'ChangesBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10590	#model: #useNewChangesBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10591	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10592	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10593	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10594	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10595	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10596	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10597	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10598	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10599	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10600	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10601	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10602	#label: 'Use the New VersionDiff Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10603	#name: 'VersionDiffBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10604	#model: #useNewVersionDiffBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10605	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10606	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10607	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10608	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10609	#label: 'Use the New File Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10610	#name: 'NewFileBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10611	#model: #useNewFileBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10612	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10613	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10614	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10615	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10616	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10617	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10618	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10619	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10620	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10621	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10622	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10623	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10624	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10625	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10626	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10627	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10628	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10629	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10630	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10631	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10632	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10633	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10634	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10635	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10636	#(#CheckBoxSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10637	#label: 'Use Hierarchical Inspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10638	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10639	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10640	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10641	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10642	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10643	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10644	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10645	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10646	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10647	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10648	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10649	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10650	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10651	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10652	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10653	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10654	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10655	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10656	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10657	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10658	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10659	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10660	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10661	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10662	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10663	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10664	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10665	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10666	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10667	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10668	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10669	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10670	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10671	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10672	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10673	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10674
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10675	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10676	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10677	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10678	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10679
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10680	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10681	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10682	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10683	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10684
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10685	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10686	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10687	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10689	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10690
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10691	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10692
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10693	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10694
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10695	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10696	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10697	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10698	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10699	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10700	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10701	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10702	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10703	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10704	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10705	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10706	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10707	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10708	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10709	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10710	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10711	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10712	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10713	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10714	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10715	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10716	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10717	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10718	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10719	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10720	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10721	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10722	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10723	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10724	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10725	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10726	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10727	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10728	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10729	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10730	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10731	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10732	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10733	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10734	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10735	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10736	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10737	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10738
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10739	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10740
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10741	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10742	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10743
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10744	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10745	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10746	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10747	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10748	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10749	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10750	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10751	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10752	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10753	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10754	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10755	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10756	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10757	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10758	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10759	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10761	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10762
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10763	showClockInLauncher
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10765	showClockInLauncher isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10766	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10767	showClockInLauncher onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10768	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10769	^ showClockInLauncher.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10770	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10772	transcriptBufferSize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10774	transcriptBufferSize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10775	transcriptBufferSize := Transcript current lineLimit asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10776	transcriptBufferSize onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10777	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10778	^ transcriptBufferSize.
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	useNewChangesBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10782
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10783	useNewChangesBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10784	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10785	useNewChangesBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10786	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10787	^ useNewChangesBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10788	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10790	useNewFileBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10791
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10792	useNewFileBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10793	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10794	useNewFileBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10795	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10796	^ useNewFileBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10797	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10798
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10799	useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10800
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10801	useNewFileDialog isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10802	useNewFileDialog := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10803	useNewFileDialog onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10804	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10805	^ useNewFileDialog.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10806	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10807
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10808	useNewInspector
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10809
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10810	useNewInspector isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10811	useNewInspector := currentUserPrefs useNewInspector asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10812	useNewInspector onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10813	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10814	^ useNewInspector.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10815	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10816
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10817	useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10818
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10819	useNewSettingsApplication isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10820	useNewSettingsApplication := true asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10821	useNewSettingsApplication onChangeSend:#evaluateModified to:self
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10822	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10823	^ useNewSettingsApplication.
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
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10826	useNewSystemBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10828	useNewSystemBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10829	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10830	useNewSystemBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10831	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10832	^ useNewSystemBrowser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10833	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10834
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10835	useNewVersionDiffBrowser
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10837	useNewVersionDiffBrowser isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10838	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10839	useNewVersionDiffBrowser onChangeSend:#evaluateModified to:self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10840	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10841	^ useNewVersionDiffBrowser.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10842	!
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10843
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10844	useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10845
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10846	useProcessMonitorV2 isNil ifTrue:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10847	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10848	useProcessMonitorV2 onChangeSend:#evaluateModified to:self
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10849	].
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10850	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10851	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10853	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10855	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10857	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10858	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10859	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10860	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10861	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10862	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10863	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10864	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10865	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10866	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10867	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10868
4226 44e2f83cc526 initial checkin penk parents: diff changeset	10869	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	10870
44e2f83cc526 initial checkin penk parents: diff changeset	10871	version
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	10872	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.66 2003-06-03 10:38:21 cg Exp $'
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	10873	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 03 Jun 2003 12:38:21 +0200
changeset 4941	42d9b274824d
parent 4899	1bde09704293
child 4944	fce7d52d36da
permissions	-rw-r--r--